inherited crdAbonent: TcrdAbonent
  Left = 256
  Top = 143
  Height = 601
  HelpContext = 11411
  BorderIcons = [biSystemMenu, biMinimize, biMaximize, biHelp]
  Caption = #1050#1072#1088#1090#1086#1095#1082#1072' '#1072#1073#1086#1085#1077#1085#1090#1072
  Constraints.MinWidth = 800
  Menu = MainMenu
  OldCreateOrder = True
  OnResize = FormResize
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object Label46: TLabel [0]
    Left = 10
    Top = 18
    Width = 65
    Height = 13
    Alignment = taRightJustify
    Caption = #1053#1086#1084#1077#1088' '#1089#1095#1077#1090#1072
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
  end
  object Label47: TLabel [1]
    Left = 50
    Top = 40
    Width = 25
    Height = 13
    Alignment = taRightJustify
    Caption = #1041#1072#1085#1082
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
  end
  inherited Panel1: TPanel
    Top = 528
    inherited BitBtn1: TBitBtn
      Left = 587
    end
    inherited BitBtn2: TBitBtn
      ModalResult = 2
    end
  end
  inherited ToolBar1: TToolBar
    Height = 25
    object ToolButton47: TToolButton
      Left = 77
      Top = 0
      Width = 8
      Caption = 'ToolButton47'
      ImageIndex = 11
      Style = tbsSeparator
    end
  end
  object PageControl: TPageControl [4]
    Left = 0
    Top = 52
    Width = 792
    Height = 476
    ActivePage = TabSheet1
    Align = alClient
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    MultiLine = True
    ParentFont = False
    Style = tsFlatButtons
    TabOrder = 2
    OnChange = PageControlChange
    OnResize = PageControlResize
    object TabSheet1: TTabSheet
      Caption = #1054#1089#1085#1086#1074#1085#1099#1077' '#1089#1074#1086#1081#1089#1090#1074#1072
      object Splitter1: TSplitter
        Left = 0
        Top = 154
        Width = 784
        Height = 5
        Cursor = crVSplit
        Align = alTop
        Beveled = True
      end
      object PageControl2: TPageControl
        Left = 0
        Top = 159
        Width = 784
        Height = 286
        ActivePage = TabSheet3
        Align = alClient
        Constraints.MinHeight = 150
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = [fsBold]
        MultiLine = True
        ParentFont = False
        Style = tsFlatButtons
        TabOrder = 0
        OnChange = PageControlChange
        object TabSheet3: TTabSheet
          Caption = #1046#1080#1083#1100#1094#1099
          object Splitter2: TSplitter
            Left = 541
            Top = 26
            Height = 229
            Align = alRight
            MinSize = 300
          end
          object GroupBox2: TGroupBox
            Left = 0
            Top = 26
            Width = 541
            Height = 229
            Align = alClient
            Caption = ' '#1046#1080#1083#1100#1094#1099' '
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clWindowText
            Font.Height = -11
            Font.Name = 'MS Sans Serif'
            Font.Style = [fsBold]
            ParentFont = False
            TabOrder = 0
            object dbgClients: TDBGridEh
              Left = 2
              Top = 15
              Width = 537
              Height = 212
              Align = alClient
              DataGrouping.GroupLevels = <>
              DataSource = dsc_Clients
              Flat = True
              Font.Charset = DEFAULT_CHARSET
              Font.Color = clWindowText
              Font.Height = -11
              Font.Name = 'MS Sans Serif'
              Font.Style = []
              FooterColor = clWindow
              FooterFont.Charset = DEFAULT_CHARSET
              FooterFont.Color = clWindowText
              FooterFont.Height = -11
              FooterFont.Name = 'MS Sans Serif'
              FooterFont.Style = []
              OddRowColor = clMoneyGreen
              Options = [dgTitles, dgColumnResize, dgColLines, dgRowLines, dgRowSelect, dgAlwaysShowSelection, dgConfirmDelete, dgCancelOnExit]
              OptionsEh = [dghFixed3D, dghHighlightFocus, dghClearSelection, dghAutoSortMarking, dghMultiSortMarking, dghDblClickOptimizeColWidth, dghDialogFind, dghColumnResize, dghColumnMove]
              ParentFont = False
              ReadOnly = True
              RowDetailPanel.Color = clBtnFace
              TabOrder = 0
              TitleFont.Charset = DEFAULT_CHARSET
              TitleFont.Color = clWindowText
              TitleFont.Height = -11
              TitleFont.Name = 'MS Sans Serif'
              TitleFont.Style = [fsBold]
              UseMultiTitle = True
              VTitleMargin = 5
              OnDblClick = aEditTenantExecute
              Columns = <
                item
                  EditButtons = <>
                  FieldName = 'NAME'
                  Footers = <>
                  Width = 187
                end
                item
                  EditButtons = <>
                  FieldName = 'RSTATUS_NAME'
                  Footers = <>
                end
                item
                  EditButtons = <>
                  FieldName = 'RBDATE'
                  Footers = <>
                end
                item
                  EditButtons = <>
                  FieldName = 'BIRTHDATE'
                  Footers = <>
                  Width = 67
                end
                item
                  Alignment = taCenter
                  EditButtons = <>
                  FieldName = 'SEX'
                  Footers = <>
                  Width = 31
                end
                item
                  EditButtons = <>
                  FieldName = 'REXEMPT_NAME'
                  Footers = <>
                end
                item
                  EditButtons = <>
                  FieldName = 'REXEMPT_DOC'
                  Footers = <>
                end
                item
                  EditButtons = <>
                  FieldName = 'RMODIFYUSER'
                  Footers = <>
                end
                item
                  EditButtons = <>
                  FieldName = 'MODIFYDATE'
                  Footers = <>
                  Width = 75
                end
                item
                  EditButtons = <>
                  FieldName = 'ID'
                  Footers = <>
                end>
              object RowDetailData: TRowDetailPanelControlEh
              end
            end
          end
          object GroupBox3: TGroupBox
            Left = 544
            Top = 26
            Width = 232
            Height = 229
            Align = alRight
            Caption = ' '#1048#1089#1090#1086#1088#1080#1103' '#1087#1088#1086#1087#1080#1089#1082#1080' '
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clWindowText
            Font.Height = -11
            Font.Name = 'MS Sans Serif'
            Font.Style = [fsBold]
            ParentFont = False
            TabOrder = 1
            object dbgClientHist: TDBGridEh
              Left = 2
              Top = 15
              Width = 228
              Height = 212
              Align = alClient
              DataGrouping.GroupLevels = <>
              DataSource = dsc_ClientHist
              Flat = True
              Font.Charset = DEFAULT_CHARSET
              Font.Color = clWindowText
              Font.Height = -11
              Font.Name = 'MS Sans Serif'
              Font.Style = []
              FooterColor = clWindow
              FooterFont.Charset = DEFAULT_CHARSET
              FooterFont.Color = clWindowText
              FooterFont.Height = -11
              FooterFont.Name = 'MS Sans Serif'
              FooterFont.Style = []
              OddRowColor = clMoneyGreen
              Options = [dgTitles, dgColumnResize, dgColLines, dgRowLines, dgRowSelect, dgConfirmDelete, dgCancelOnExit]
              OptionsEh = [dghFixed3D, dghHighlightFocus, dghClearSelection, dghAutoSortMarking, dghMultiSortMarking, dghDblClickOptimizeColWidth, dghDialogFind, dghColumnResize, dghColumnMove]
              ParentFont = False
              ReadOnly = True
              RowDetailPanel.Color = clBtnFace
              TabOrder = 0
              TitleFont.Charset = DEFAULT_CHARSET
              TitleFont.Color = clWindowText
              TitleFont.Height = -11
              TitleFont.Name = 'MS Sans Serif'
              TitleFont.Style = [fsBold]
              UseMultiTitle = True
              VTitleMargin = 5
              Columns = <
                item
                  EditButtons = <>
                  FieldName = 'ROPER_NAME'
                  Footers = <>
                end
                item
                  EditButtons = <>
                  FieldName = 'RDOCDATE'
                  Footers = <>
                end
                item
                  EditButtons = <>
                  FieldName = 'CREATER'
                  Footers = <>
                end
                item
                  EditButtons = <>
                  FieldName = 'RCREATEDATE'
                  Footers = <>
                end
                item
                  EditButtons = <>
                  FieldName = 'RRECORD_ID'
                  Footers = <>
                  Visible = False
                end
                item
                  EditButtons = <>
                  FieldName = 'REDATE'
                  Footers = <>
                  Visible = False
                end
                item
                  EditButtons = <>
                  FieldName = 'IS_DELETED'
                  Footers = <>
                  Visible = False
                end>
              object RowDetailData: TRowDetailPanelControlEh
              end
            end
          end
          object ToolBar2: TToolBar
            Left = 0
            Top = 0
            Width = 776
            Height = 26
            Caption = 'ToolBar2'
            Flat = True
            Images = MAIN.ImageList
            TabOrder = 2
            object ToolButton5: TToolButton
              Left = 0
              Top = 0
              Action = aNewTenant
              ParentShowHint = False
              ShowHint = True
            end
            object ToolButton6: TToolButton
              Left = 23
              Top = 0
              Action = aEditTenant
              ParentShowHint = False
              ShowHint = True
            end
            object ToolButton7: TToolButton
              Left = 46
              Top = 0
              Width = 8
              Caption = 'ToolButton7'
              ImageIndex = 2
              Style = tbsSeparator
            end
            object cbShowLeave: TDBCheckBoxEh
              Left = 54
              Top = 0
              Width = 211
              Height = 22
              Action = aShowLeaved
              AlwaysShowBorder = True
              Flat = True
              Font.Charset = DEFAULT_CHARSET
              Font.Color = clWindowText
              Font.Height = -11
              Font.Name = 'MS Sans Serif'
              Font.Style = []
              ParentFont = False
              TabOrder = 0
              ValueChecked = 'True'
              ValueUnchecked = 'False'
            end
          end
        end
        object TabSheet4: TTabSheet
          Caption = #1059#1089#1083#1091#1075#1080
          ImageIndex = 1
          object ToolBar4: TToolBar
            Left = 0
            Top = 0
            Width = 776
            Height = 26
            Caption = 'ToolBar2'
            Flat = True
            Images = MAIN.ImageList
            TabOrder = 0
            object ToolButton14: TToolButton
              Left = 0
              Top = 0
              Action = aNewService
              ParentShowHint = False
              ShowHint = True
            end
            object ToolButton15: TToolButton
              Left = 23
              Top = 0
              Action = aEditService
              ParentShowHint = False
              ShowHint = True
            end
            object ToolButton16: TToolButton
              Left = 46
              Top = 0
              Width = 8
              Caption = 'ToolButton7'
              ImageIndex = 2
              Style = tbsSeparator
            end
            object ToolButton17: TToolButton
              Left = 54
              Top = 0
              Action = aDelService
              ParentShowHint = False
              ShowHint = True
            end
            object ToolButton48: TToolButton
              Left = 77
              Top = 0
              Width = 8
              Caption = 'ToolButton48'
              ImageIndex = 3
              Style = tbsSeparator
            end
            object ToolButton49: TToolButton
              Left = 85
              Top = 0
              Action = aShowChargeService
              ParentShowHint = False
              ShowHint = True
            end
            object ToolButton50: TToolButton
              Left = 108
              Top = 0
              Width = 8
              Caption = 'ToolButton50'
              ImageIndex = 13
              Style = tbsSeparator
            end
            object ToolButton8: TToolButton
              Left = 116
              Top = 0
              Action = aChargeService
              ParentShowHint = False
              ShowHint = True
            end
          end
          object dbgServices: TDBGridEh
            Left = 0
            Top = 26
            Width = 776
            Height = 229
            Align = alClient
            DataGrouping.GroupLevels = <>
            DataSource = dsc_Services
            Flat = True
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clWindowText
            Font.Height = -11
            Font.Name = 'MS Sans Serif'
            Font.Style = []
            FooterColor = clWindow
            FooterFont.Charset = DEFAULT_CHARSET
            FooterFont.Color = clWindowText
            FooterFont.Height = -11
            FooterFont.Name = 'MS Sans Serif'
            FooterFont.Style = [fsBold]
            FooterRowCount = 1
            OddRowColor = clInactiveCaptionText
            Options = [dgTitles, dgColumnResize, dgColLines, dgRowLines, dgRowSelect, dgAlwaysShowSelection, dgCancelOnExit]
            OptionsEh = [dghFixed3D, dghHighlightFocus, dghClearSelection, dghAutoSortMarking, dghMultiSortMarking, dghDblClickOptimizeColWidth, dghColumnResize, dghColumnMove]
            ParentFont = False
            PopupMenu = pmServices
            ReadOnly = True
            RowDetailPanel.BevelOuter = bvNone
            RowDetailPanel.BevelKind = bkSoft
            RowDetailPanel.Color = clBtnFace
            SortLocal = True
            SumList.Active = True
            TabOrder = 1
            TitleFont.Charset = DEFAULT_CHARSET
            TitleFont.Color = clWindowText
            TitleFont.Height = -11
            TitleFont.Name = 'MS Sans Serif'
            TitleFont.Style = [fsBold]
            UseMultiTitle = True
            VTitleMargin = 5
            OnDblClick = aEditServiceExecute
            OnGetCellParams = dbgServicesGetCellParams
            Columns = <
              item
                EditButtons = <>
                FieldName = 'RSERVICE_NAME'
                Footer.Value = #1048#1090#1086#1075#1086':'
                Footer.ValueType = fvtStaticText
                Footers = <>
              end
              item
                EditButtons = <>
                FieldName = 'RBALANCE'
                Footer.FieldName = 'RBALANCE'
                Footer.ValueType = fvtSum
                Footers = <>
              end
              item
                EditButtons = <>
                FieldName = 'RLAST_CHARGE'
                Footer.FieldName = 'RLAST_CHARGE'
                Footer.ValueType = fvtSum
                Footers = <>
                Width = 73
                WordWrap = True
              end
              item
                EditButtons = <>
                FieldName = 'RLAST_CDATE'
                Footers = <>
                Width = 75
                WordWrap = True
              end
              item
                EditButtons = <>
                FieldName = 'RNEW_CHARGE'
                Footer.FieldName = 'RNEW_CHARGE'
                Footer.ValueType = fvtSum
                Footers = <>
                Width = 80
                WordWrap = True
              end
              item
                EditButtons = <>
                FieldName = 'RSUPPLIER_NAME'
                Footers = <>
              end
              item
                EditButtons = <>
                FieldName = 'RMANAG_NAME'
                Footers = <>
              end
              item
                EditButtons = <>
                FieldName = 'RPENI'
                Footer.FieldName = 'RPENI'
                Footer.ValueType = fvtSum
                Footers = <>
                WordWrap = True
              end
              item
                EditButtons = <>
                FieldName = 'RDOGOVOR_ID'
                Footers = <>
                WordWrap = True
              end
              item
                EditButtons = <>
                FieldName = 'RSUPPLIER_CLOSED_RS'
                Footers = <>
                Visible = False
              end>
            object RowDetailData: TRowDetailPanelControlEh
            end
          end
        end
        object TabSheet2: TTabSheet
          Caption = #1042#1099#1087#1080#1089#1082#1072
          ImageIndex = 2
          object dbgOwnServices: TDBGridEh
            Left = 0
            Top = 21
            Width = 776
            Height = 234
            Align = alClient
            DataGrouping.GroupLevels = <>
            DataSource = dsc_OwnServices
            Flat = True
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clWindowText
            Font.Height = -11
            Font.Name = 'MS Sans Serif'
            Font.Style = []
            FooterColor = clWindow
            FooterFont.Charset = DEFAULT_CHARSET
            FooterFont.Color = clWindowText
            FooterFont.Height = -11
            FooterFont.Name = 'MS Sans Serif'
            FooterFont.Style = [fsBold]
            FooterRowCount = 1
            OddRowColor = clInactiveCaptionText
            Options = [dgTitles, dgColumnResize, dgColLines, dgRowLines, dgRowSelect, dgAlwaysShowSelection, dgCancelOnExit]
            OptionsEh = [dghFixed3D, dghHighlightFocus, dghClearSelection, dghAutoSortMarking, dghMultiSortMarking, dghDblClickOptimizeColWidth, dghColumnResize, dghColumnMove]
            ParentFont = False
            ReadOnly = True
            RowDetailPanel.Color = clBtnFace
            SortLocal = True
            SumList.Active = True
            TabOrder = 0
            TitleFont.Charset = DEFAULT_CHARSET
            TitleFont.Color = clWindowText
            TitleFont.Height = -11
            TitleFont.Name = 'MS Sans Serif'
            TitleFont.Style = [fsBold]
            UseMultiTitle = True
            VTitleMargin = 5
            Columns = <
              item
                EditButtons = <>
                FieldName = 'RGROUP_NAME'
                Footer.Value = #1048#1090#1086#1075#1086':'
                Footers = <>
                Width = 195
              end
              item
                EditButtons = <>
                FieldName = 'RDEBT_START'
                Footer.ValueType = fvtSum
                Footers = <>
                Width = 73
              end
              item
                EditButtons = <>
                FieldName = 'RCHARGE'
                Footer.ValueType = fvtSum
                Footers = <>
                Width = 76
              end
              item
                EditButtons = <>
                FieldName = 'RREPAY'
                Footer.ValueType = fvtSum
                Footers = <>
                Width = 85
              end
              item
                EditButtons = <>
                FieldName = 'RRETURN'
                Footer.ValueType = fvtSum
                Footers = <>
                Width = 90
              end
              item
                EditButtons = <>
                FieldName = 'RWRITE_OFF'
                Footer.ValueType = fvtSum
                Footers = <>
              end
              item
                EditButtons = <>
                FieldName = 'RMAKET'
                Footer.ValueType = fvtSum
                Footers = <>
                Width = 95
              end
              item
                EditButtons = <>
                FieldName = 'RPAYS_KASS'
                Footer.ValueType = fvtSum
                Footers = <>
              end
              item
                EditButtons = <>
                FieldName = 'RPAYS_OTHER'
                Footer.ValueType = fvtSum
                Footers = <>
              end
              item
                EditButtons = <>
                FieldName = 'RDEBT_END'
                Footer.ValueType = fvtSum
                Footers = <>
              end
              item
                EditButtons = <>
                FieldName = 'RMANAG_NAME'
                Footers = <>
                Width = 81
              end
              item
                EditButtons = <>
                FieldName = 'RSUPPLIER_NAME'
                Footers = <>
                Width = 78
              end
              item
                EditButtons = <>
                FieldName = 'RCURRENT_CHARGE'
                Footer.FieldName = 'RCURRENT_CHARGE'
                Footer.ValueType = fvtSum
                Footers = <>
                Width = 78
              end>
            object RowDetailData: TRowDetailPanelControlEh
            end
          end
          object Panel4: TPanel
            Left = 0
            Top = 0
            Width = 776
            Height = 21
            Align = alTop
            BevelOuter = bvNone
            TabOrder = 1
            object Label32: TLabel
              Left = 10
              Top = 3
              Width = 47
              Height = 13
              Caption = #1060#1080#1083#1100#1090#1088
            end
            object Label33: TLabel
              Left = 363
              Top = 3
              Width = 39
              Height = 13
              Caption = #1052#1077#1089#1103#1094
            end
            object OwnServMonth: TwzsMonthDBEdit
              Left = 408
              Top = 1
              Width = 161
              Height = 19
              MonthFormat = 'mmmm'
              YearFormat = 'yyyy'
              Delimiter = ','
              FormatType = ftMonthYear
              DefaultDate = 40528.505299317130000000
              DefaultLineText = '('#1090#1077#1082#1091#1097#1080#1081')'
              NullLineText = '('#1074#1089#1077' '#1087#1077#1088#1080#1086#1076#1099')'
              NullLineVisible = False
              AlwaysShowBorder = True
              DropDownBox.Rows = 12
              EditButton.Hint = #1042#1099#1073#1088#1072#1090#1100' '#1084#1077#1089#1103#1094
              EditButton.Width = 16
              EditButtons = <
                item
                  Hint = #1057#1083#1077#1076#1091#1102#1097#1080#1081'/'#1087#1088#1077#1076#1099#1076#1091#1097#1080#1081' '#1084#1077#1089#1103#1094' ('#1089#1090#1088#1077#1083#1082#1080' '#1042#1074#1077#1088#1093'/'#1042#1085#1080#1079')'
                  Style = ebsUpDownEh
                  Visible = False
                  Width = 16
                end
                item
                  Hint = #1057#1083#1077#1076#1091#1102#1097#1080#1081'/'#1087#1088#1077#1076#1099#1076#1091#1097#1080#1081' '#1075#1086#1076' ('#1087#1083#1102#1089'/'#1084#1080#1085#1091#1089')'
                  Style = ebsMinusEh
                  Width = 16
                end
                item
                  Hint = #1057#1083#1077#1076#1091#1102#1097#1080#1081'/'#1087#1088#1077#1076#1099#1076#1091#1097#1080#1081' '#1075#1086#1076' ('#1087#1083#1102#1089'/'#1084#1080#1085#1091#1089')'
                  Style = ebsPlusEh
                  Width = 16
                end>
              Flat = True
              TabOrder = 1
              Visible = True
              OnChange = OwnServMonthChange
            end
            object cbOwnService: TDBComboBoxEh
              Left = 64
              Top = 1
              Width = 289
              Height = 19
              AlwaysShowBorder = True
              AutoSize = False
              DropDownBox.Rows = 3
              DropDownBox.Sizable = True
              EditButtons = <>
              Flat = True
              Items.Strings = (
                #1042#1089#1077' '#1091#1089#1083#1091#1075#1080
                #1041#1072#1083#1072#1085#1089#1086#1074#1099#1077' '#1091#1089#1083#1091#1075#1080
                #1047#1072#1073#1072#1083#1072#1085#1089#1086#1074#1099#1077' '#1091#1089#1083#1091#1075#1080)
              KeyItems.Strings = (
                '-1'
                '0'
                '1')
              TabOrder = 0
              Visible = True
              OnChange = OwnServMonthChange
            end
          end
        end
      end
      object Panel2: TPanel
        Left = 0
        Top = 0
        Width = 784
        Height = 154
        Align = alTop
        BevelOuter = bvNone
        Constraints.MinHeight = 154
        Constraints.MinWidth = 784
        TabOrder = 1
        object GroupBox1: TGroupBox
          Left = 0
          Top = 0
          Width = 225
          Height = 154
          Align = alLeft
          Caption = ' '#1040#1076#1088#1077#1089' '
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = [fsBold]
          ParentFont = False
          TabOrder = 0
          object Label6: TLabel
            Left = 16
            Top = 17
            Width = 51
            Height = 13
            Alignment = taRightJustify
            Caption = #1053#1072#1089'.'#1087#1091#1085#1082#1090
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clWindowText
            Font.Height = -11
            Font.Name = 'MS Sans Serif'
            Font.Style = []
            ParentFont = False
          end
          object Label7: TLabel
            Left = 35
            Top = 39
            Width = 32
            Height = 13
            Alignment = taRightJustify
            Caption = #1059#1083#1080#1094#1072
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clWindowText
            Font.Height = -11
            Font.Name = 'MS Sans Serif'
            Font.Style = []
            ParentFont = False
          end
          object Label8: TLabel
            Left = 30
            Top = 61
            Width = 37
            Height = 13
            Alignment = taRightJustify
            Caption = #1044#1086#1084' '#8470
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clWindowText
            Font.Height = -11
            Font.Name = 'MS Sans Serif'
            Font.Style = []
            ParentFont = False
          end
          object Label9: TLabel
            Left = 40
            Top = 83
            Width = 27
            Height = 13
            Alignment = taRightJustify
            Caption = #1050#1074' '#8470
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clWindowText
            Font.Height = -11
            Font.Name = 'MS Sans Serif'
            Font.Style = []
            ParentFont = False
          end
          object Label10: TLabel
            Left = 137
            Top = 105
            Width = 26
            Height = 13
            Alignment = taRightJustify
            Caption = #1069#1090#1072#1078
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clWindowText
            Font.Height = -11
            Font.Name = 'MS Sans Serif'
            Font.Style = []
            ParentFont = False
          end
          object Label11: TLabel
            Left = 25
            Top = 127
            Width = 42
            Height = 13
            Alignment = taRightJustify
            Caption = #1059#1095#1072#1089#1090#1086#1082
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clWindowText
            Font.Height = -11
            Font.Name = 'MS Sans Serif'
            Font.Style = []
            ParentFont = False
          end
          object Label18: TLabel
            Left = 127
            Top = 61
            Width = 36
            Height = 13
            Caption = #1050#1086#1088#1087#1091#1089
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clWindowText
            Font.Height = -11
            Font.Name = 'MS Sans Serif'
            Font.Style = []
            ParentFont = False
          end
          object Label19: TLabel
            Left = 126
            Top = 83
            Width = 37
            Height = 13
            Caption = #1051#1080#1090#1077#1088#1072
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clWindowText
            Font.Height = -11
            Font.Name = 'MS Sans Serif'
            Font.Style = []
            ParentFont = False
          end
          object Label50: TLabel
            Left = 22
            Top = 105
            Width = 45
            Height = 13
            Alignment = taRightJustify
            Caption = #1055#1086#1076#1098#1077#1079#1076
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clWindowText
            Font.Height = -11
            Font.Name = 'MS Sans Serif'
            Font.Style = []
            ParentFont = False
          end
          object dbeTown: TDBEditEh
            Left = 72
            Top = 14
            Width = 145
            Height = 19
            TabStop = False
            AlwaysShowBorder = True
            Color = clInactiveCaptionText
            DataField = 'TOWN'
            DataSource = dsc_MainAbon
            EditButtons = <>
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clWindowText
            Font.Height = -11
            Font.Name = 'MS Sans Serif'
            Font.Style = []
            Flat = True
            ParentFont = False
            ReadOnly = True
            TabOrder = 0
            Visible = True
          end
          object dbeStreet: TDBEditEh
            Left = 72
            Top = 36
            Width = 145
            Height = 19
            TabStop = False
            AlwaysShowBorder = True
            Color = clInactiveCaptionText
            DataField = 'STREET'
            DataSource = dsc_MainAbon
            EditButtons = <>
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clWindowText
            Font.Height = -11
            Font.Name = 'MS Sans Serif'
            Font.Style = []
            Flat = True
            ParentFont = False
            ReadOnly = True
            TabOrder = 1
            Visible = True
          end
          object dbeHome: TDBEditEh
            Left = 72
            Top = 58
            Width = 49
            Height = 19
            TabStop = False
            AlwaysShowBorder = True
            Color = clInactiveCaptionText
            DataField = 'HOUSE'
            DataSource = dsc_MainAbon
            EditButtons = <>
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clWindowText
            Font.Height = -11
            Font.Name = 'MS Sans Serif'
            Font.Style = []
            Flat = True
            ParentFont = False
            ReadOnly = True
            TabOrder = 2
            Visible = True
          end
          object dbeCorpus: TDBEditEh
            Left = 168
            Top = 58
            Width = 49
            Height = 19
            TabStop = False
            AlwaysShowBorder = True
            Color = clInactiveCaptionText
            DataField = 'CORPUS'
            DataSource = dsc_MainAbon
            EditButtons = <>
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clWindowText
            Font.Height = -11
            Font.Name = 'MS Sans Serif'
            Font.Style = []
            Flat = True
            ParentFont = False
            ReadOnly = True
            TabOrder = 3
            Visible = True
          end
          object dbeAppart: TDBEditEh
            Left = 72
            Top = 80
            Width = 49
            Height = 19
            AlwaysShowBorder = True
            DataField = 'APPARTS'
            DataSource = dsc_MainAbon
            EditButtons = <>
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clWindowText
            Font.Height = -11
            Font.Name = 'MS Sans Serif'
            Font.Style = []
            Flat = True
            ParentFont = False
            TabOrder = 4
            Visible = True
          end
          object dbeLetter: TDBEditEh
            Left = 168
            Top = 80
            Width = 49
            Height = 19
            AlwaysShowBorder = True
            DataField = 'LETTER'
            DataSource = dsc_MainAbon
            EditButtons = <>
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clWindowText
            Font.Height = -11
            Font.Name = 'MS Sans Serif'
            Font.Style = []
            Flat = True
            ParentFont = False
            TabOrder = 5
            Visible = True
          end
          object dbeFloor: TDBEditEh
            Left = 168
            Top = 102
            Width = 49
            Height = 19
            AlwaysShowBorder = True
            DataField = 'FLOOR'
            DataSource = dsc_MainAbon
            EditButtons = <>
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clWindowText
            Font.Height = -11
            Font.Name = 'MS Sans Serif'
            Font.Style = []
            Flat = True
            ParentFont = False
            TabOrder = 7
            Visible = True
          end
          object dbeZkx: TDBEditEh
            Left = 72
            Top = 124
            Width = 145
            Height = 19
            TabStop = False
            AlwaysShowBorder = True
            Color = clInactiveCaptionText
            DataField = 'ZKX_NAME'
            DataSource = dsc_MainAbon
            EditButtons = <>
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clWindowText
            Font.Height = -11
            Font.Name = 'MS Sans Serif'
            Font.Style = []
            Flat = True
            ParentFont = False
            ReadOnly = True
            TabOrder = 8
            Visible = True
          end
          object dbeDoorway: TDBEditEh
            Left = 72
            Top = 102
            Width = 49
            Height = 19
            AlwaysShowBorder = True
            DataField = 'DOORWAY'
            DataSource = dsc_MainAbon
            EditButtons = <>
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clWindowText
            Font.Height = -11
            Font.Name = 'MS Sans Serif'
            Font.Style = []
            Flat = True
            ParentFont = False
            TabOrder = 6
            Visible = True
          end
        end
        object GroupBox4: TGroupBox
          Left = 225
          Top = 0
          Width = 313
          Height = 154
          Align = alClient
          Caption = ' '#1061#1072#1088#1072#1082#1090#1077#1088#1080#1089#1090#1080#1082#1072' '
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = [fsBold]
          ParentFont = False
          TabOrder = 1
          DesignSize = (
            313
            154)
          object Label1: TLabel
            Left = 62
            Top = 18
            Width = 45
            Height = 13
            Alignment = taRightJustify
            Caption = #1051#1080#1094'.'#1089#1095#1077#1090
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clWindowText
            Font.Height = -11
            Font.Name = 'MS Sans Serif'
            Font.Style = []
            ParentFont = False
          end
          object Label3: TLabel
            Left = 26
            Top = 60
            Width = 81
            Height = 13
            Alignment = taRightJustify
            Caption = #1058#1080#1087' '#1087#1086#1084#1077#1097#1077#1085#1080#1103
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clWindowText
            Font.Height = -11
            Font.Name = 'MS Sans Serif'
            Font.Style = []
            ParentFont = False
          end
          object Label4: TLabel
            Left = 9
            Top = 82
            Width = 98
            Height = 13
            Alignment = taRightJustify
            Caption = #1042#1080#1076' '#1089#1086#1073#1089#1090#1074#1077#1085#1085#1086#1089#1090#1080
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clWindowText
            Font.Height = -11
            Font.Name = 'MS Sans Serif'
            Font.Style = []
            ParentFont = False
          end
          object Label5: TLabel
            Left = 69
            Top = 104
            Width = 38
            Height = 13
            Alignment = taRightJustify
            Caption = #1050#1086#1084#1085#1072#1090
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clWindowText
            Font.Height = -11
            Font.Name = 'MS Sans Serif'
            Font.Style = []
            ParentFont = False
          end
          object Label12: TLabel
            Left = 7
            Top = 126
            Width = 100
            Height = 13
            Alignment = taRightJustify
            Caption = #1042#1099#1089#1086#1090#1072' '#1087#1086#1084#1077#1097#1077#1085#1080#1103
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clWindowText
            Font.Height = -11
            Font.Name = 'MS Sans Serif'
            Font.Style = []
            ParentFont = False
          end
          object Label44: TLabel
            Left = 34
            Top = 40
            Width = 73
            Height = 13
            Alignment = taRightJustify
            Caption = #1059#1087#1088'.'#1082#1086#1084#1087#1072#1085#1080#1103
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clWindowText
            Font.Height = -11
            Font.Name = 'MS Sans Serif'
            Font.Style = []
            ParentFont = False
          end
          object dbeNLS: TDBEditEh
            Left = 112
            Top = 14
            Width = 186
            Height = 19
            AlwaysShowBorder = True
            Anchors = [akLeft, akTop, akRight]
            DataField = 'NLS'
            DataSource = dsc_MainAbon
            EditButtons = <>
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clWindowText
            Font.Height = -11
            Font.Name = 'MS Sans Serif'
            Font.Style = []
            Flat = True
            ParentFont = False
            TabOrder = 0
            Visible = True
          end
          object dbeRooms: TDBEditEh
            Left = 112
            Top = 102
            Width = 49
            Height = 19
            AlwaysShowBorder = True
            DataField = 'ROOMS'
            DataSource = dsc_MainAbon
            EditButtons = <>
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clWindowText
            Font.Height = -11
            Font.Name = 'MS Sans Serif'
            Font.Style = []
            Flat = True
            ParentFont = False
            TabOrder = 4
            Visible = True
          end
          object dbeHeight: TDBEditEh
            Left = 112
            Top = 124
            Width = 49
            Height = 19
            AlwaysShowBorder = True
            DataField = 'HEIGHT'
            DataSource = dsc_MainAbon
            EditButtons = <>
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clWindowText
            Font.Height = -11
            Font.Name = 'MS Sans Serif'
            Font.Style = []
            Flat = True
            ParentFont = False
            TabOrder = 5
            Visible = True
          end
          object lcbRealityType: TDBLookupComboboxEh
            Left = 112
            Top = 58
            Width = 186
            Height = 19
            AlwaysShowBorder = True
            Anchors = [akLeft, akTop, akRight]
            DataField = 'REALTYTYPE'
            DataSource = dsc_MainAbon
            EditButtons = <>
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clWindowText
            Font.Height = -11
            Font.Name = 'MS Sans Serif'
            Font.Style = []
            Flat = True
            KeyField = 'ID'
            ListField = 'NAME'
            ListSource = dsc_RealityTypes
            ParentFont = False
            TabOrder = 2
            Visible = True
            OnChange = lcbWorkAbilityChange
          end
          object lcbOwnership: TDBLookupComboboxEh
            Left = 112
            Top = 80
            Width = 186
            Height = 19
            AlwaysShowBorder = True
            Anchors = [akLeft, akTop, akRight]
            DataField = 'OWNERSHIP'
            DataSource = dsc_MainAbon
            EditButtons = <>
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clWindowText
            Font.Height = -11
            Font.Name = 'MS Sans Serif'
            Font.Style = []
            Flat = True
            KeyField = 'ID'
            ListField = 'NAME'
            ListSource = dsc_Owneship
            ParentFont = False
            TabOrder = 3
            Visible = True
            OnChange = lcbWorkAbilityChange
          end
          object dbeManager: TDBEditEh
            Left = 112
            Top = 36
            Width = 186
            Height = 19
            TabStop = False
            AlwaysShowBorder = True
            Anchors = [akLeft, akTop, akRight]
            Color = clInactiveCaptionText
            DataField = 'MANAG'
            DataSource = dsc_MainAbon
            EditButtons = <>
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clWindowText
            Font.Height = -11
            Font.Name = 'MS Sans Serif'
            Font.Style = []
            Flat = True
            ParentFont = False
            ReadOnly = True
            TabOrder = 1
            Visible = True
          end
        end
        object Panel8: TPanel
          Left = 538
          Top = 0
          Width = 246
          Height = 154
          Align = alRight
          BevelOuter = bvNone
          Caption = 'Panel8'
          TabOrder = 2
          object GroupBox16: TGroupBox
            Left = 0
            Top = 0
            Width = 246
            Height = 89
            Align = alTop
            Caption = ' '#1055#1083#1086#1097#1072#1076#1080' '
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clWindowText
            Font.Height = -11
            Font.Name = 'MS Sans Serif'
            Font.Style = [fsBold]
            ParentFont = False
            TabOrder = 0
            object Label13: TLabel
              Left = 32
              Top = 17
              Width = 35
              Height = 13
              Alignment = taRightJustify
              Caption = #1054#1073#1097#1072#1103
              Font.Charset = DEFAULT_CHARSET
              Font.Color = clWindowText
              Font.Height = -11
              Font.Name = 'MS Sans Serif'
              Font.Style = []
              ParentFont = False
            end
            object Label14: TLabel
              Left = 144
              Top = 17
              Width = 35
              Height = 13
              Alignment = taRightJustify
              Caption = #1046#1080#1083#1072#1103
              Font.Charset = DEFAULT_CHARSET
              Font.Color = clWindowText
              Font.Height = -11
              Font.Name = 'MS Sans Serif'
              Font.Style = []
              ParentFont = False
            end
            object Label15: TLabel
              Left = 30
              Top = 39
              Width = 37
              Height = 13
              Alignment = taRightJustify
              Caption = #1055#1088#1086#1095#1072#1103
              Font.Charset = DEFAULT_CHARSET
              Font.Color = clWindowText
              Font.Height = -11
              Font.Name = 'MS Sans Serif'
              Font.Style = []
              ParentFont = False
            end
            object Label16: TLabel
              Left = 142
              Top = 39
              Width = 37
              Height = 13
              Alignment = taRightJustify
              Caption = #1041#1072#1083#1082#1086#1085
              Font.Charset = DEFAULT_CHARSET
              Font.Color = clWindowText
              Font.Height = -11
              Font.Name = 'MS Sans Serif'
              Font.Style = []
              ParentFont = False
            end
            object Label17: TLabel
              Left = 17
              Top = 61
              Width = 50
              Height = 13
              Alignment = taRightJustify
              Caption = #1055#1086#1083#1080#1074#1085#1072#1103
              Font.Charset = DEFAULT_CHARSET
              Font.Color = clWindowText
              Font.Height = -11
              Font.Name = 'MS Sans Serif'
              Font.Style = []
              ParentFont = False
            end
            object dbeSQFull: TDBEditEh
              Left = 72
              Top = 14
              Width = 49
              Height = 19
              AlwaysShowBorder = True
              DataField = 'OCC_FULLSPACE'
              DataSource = dsc_MainAbon
              EditButtons = <>
              Font.Charset = DEFAULT_CHARSET
              Font.Color = clWindowText
              Font.Height = -11
              Font.Name = 'MS Sans Serif'
              Font.Style = []
              Flat = True
              ParentFont = False
              TabOrder = 0
              Visible = True
            end
            object dbeSQLive: TDBEditEh
              Left = 184
              Top = 14
              Width = 49
              Height = 19
              AlwaysShowBorder = True
              DataField = 'OCC_LIVESPACE'
              DataSource = dsc_MainAbon
              EditButtons = <>
              Font.Charset = DEFAULT_CHARSET
              Font.Color = clWindowText
              Font.Height = -11
              Font.Name = 'MS Sans Serif'
              Font.Style = []
              Flat = True
              ParentFont = False
              TabOrder = 1
              Visible = True
            end
            object dbeSQOther: TDBEditEh
              Left = 72
              Top = 36
              Width = 49
              Height = 19
              AlwaysShowBorder = True
              DataField = 'OCC_ADDSPACE'
              DataSource = dsc_MainAbon
              EditButtons = <>
              Font.Charset = DEFAULT_CHARSET
              Font.Color = clWindowText
              Font.Height = -11
              Font.Name = 'MS Sans Serif'
              Font.Style = []
              Flat = True
              ParentFont = False
              TabOrder = 2
              Visible = True
            end
            object dbeSQPoliv: TDBEditEh
              Left = 72
              Top = 58
              Width = 49
              Height = 19
              AlwaysShowBorder = True
              DataField = 'POLIV'
              DataSource = dsc_MainAbon
              EditButtons = <>
              Font.Charset = DEFAULT_CHARSET
              Font.Color = clWindowText
              Font.Height = -11
              Font.Name = 'MS Sans Serif'
              Font.Style = []
              Flat = True
              ParentFont = False
              TabOrder = 4
              Visible = True
            end
            object dbeSQBalkon: TDBEditEh
              Left = 184
              Top = 36
              Width = 49
              Height = 19
              AlwaysShowBorder = True
              DataField = 'BALKON'
              DataSource = dsc_MainAbon
              EditButtons = <>
              Font.Charset = DEFAULT_CHARSET
              Font.Color = clWindowText
              Font.Height = -11
              Font.Name = 'MS Sans Serif'
              Font.Style = []
              Flat = True
              ParentFont = False
              TabOrder = 3
              Visible = True
            end
          end
          object GroupBox17: TGroupBox
            Left = 0
            Top = 89
            Width = 246
            Height = 65
            Align = alClient
            Caption = ' '#1057#1072#1083#1100#1076#1086' '
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clWindowText
            Font.Height = -11
            Font.Name = 'MS Sans Serif'
            Font.Style = [fsBold]
            ParentFont = False
            TabOrder = 1
            object Label20: TLabel
              Left = 98
              Top = 18
              Width = 32
              Height = 13
              Alignment = taRightJustify
              Caption = #1044#1077#1073#1077#1090
              Font.Charset = DEFAULT_CHARSET
              Font.Color = clWindowText
              Font.Height = -11
              Font.Name = 'MS Sans Serif'
              Font.Style = []
              ParentFont = False
            end
            object Label21: TLabel
              Left = 172
              Top = 18
              Width = 36
              Height = 13
              Alignment = taRightJustify
              Caption = #1050#1088#1077#1076#1080#1090
              Font.Charset = DEFAULT_CHARSET
              Font.Color = clWindowText
              Font.Height = -11
              Font.Name = 'MS Sans Serif'
              Font.Style = []
              ParentFont = False
            end
            object Label22: TLabel
              Left = 11
              Top = 18
              Width = 35
              Height = 13
              Alignment = taRightJustify
              Caption = #1054#1073#1097#1077#1077
              Font.Charset = DEFAULT_CHARSET
              Font.Color = clWindowText
              Font.Height = -11
              Font.Name = 'MS Sans Serif'
              Font.Style = []
              ParentFont = False
            end
            object dbeCredit: TDBEditEh
              Left = 172
              Top = 34
              Width = 65
              Height = 19
              TabStop = False
              AlwaysShowBorder = True
              Color = clInactiveCaptionText
              DataField = 'CREDIT'
              DataSource = dsc_MainAbon
              EditButtons = <>
              Font.Charset = DEFAULT_CHARSET
              Font.Color = clWindowText
              Font.Height = -11
              Font.Name = 'MS Sans Serif'
              Font.Style = []
              Flat = True
              ParentFont = False
              ReadOnly = True
              TabOrder = 0
              Visible = True
            end
            object dbeDebet: TDBEditEh
              Left = 98
              Top = 34
              Width = 65
              Height = 19
              TabStop = False
              AlwaysShowBorder = True
              Color = clInactiveCaptionText
              DataField = 'DEBET'
              DataSource = dsc_MainAbon
              EditButtons = <>
              Font.Charset = DEFAULT_CHARSET
              Font.Color = clWindowText
              Font.Height = -11
              Font.Name = 'MS Sans Serif'
              Font.Style = []
              Flat = True
              ParentFont = False
              ReadOnly = True
              TabOrder = 1
              Visible = True
            end
            object dbeBalance: TDBEditEh
              Left = 11
              Top = 34
              Width = 75
              Height = 19
              TabStop = False
              AlwaysShowBorder = True
              Color = clInactiveCaptionText
              DataField = 'BALANCE'
              DataSource = dsc_MainAbon
              EditButtons = <>
              Font.Charset = DEFAULT_CHARSET
              Font.Color = clWindowText
              Font.Height = -11
              Font.Name = 'MS Sans Serif'
              Font.Style = [fsBold]
              Flat = True
              ParentFont = False
              ReadOnly = True
              TabOrder = 2
              Visible = True
            end
          end
        end
      end
    end
    object TabSheet6: TTabSheet
      Caption = #1044#1086#1087#1086#1083#1085#1080#1090#1077#1083#1100#1085#1086
      ImageIndex = 3
      OnShow = TabSheet6Show
      object Splitter3: TSplitter
        Left = 350
        Top = 0
        Height = 445
        MinSize = 320
      end
      object Panel3: TPanel
        Left = 0
        Top = 0
        Width = 350
        Height = 445
        Align = alLeft
        BevelOuter = bvNone
        Caption = 'Panel3'
        Constraints.MinWidth = 300
        TabOrder = 0
        object GroupBox5: TGroupBox
          Left = 0
          Top = 129
          Width = 350
          Height = 316
          Align = alClient
          Caption = ' '#1057#1086#1073#1089#1090#1074#1077#1085#1085#1080#1082#1080' '
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = [fsBold]
          ParentFont = False
          TabOrder = 0
          object ToolBar5: TToolBar
            Left = 2
            Top = 15
            Width = 346
            Height = 26
            Caption = 'ToolBar5'
            EdgeBorders = []
            Flat = True
            Images = MAIN.ImageList
            TabOrder = 0
            object ToolButton20: TToolButton
              Left = 0
              Top = 0
              Action = aNewOwner
              ParentShowHint = False
              ShowHint = True
            end
            object ToolButton45: TToolButton
              Left = 23
              Top = 0
              Action = aEditOwner
              ParentShowHint = False
              ShowHint = True
            end
            object ToolButton43: TToolButton
              Left = 46
              Top = 0
              Width = 8
              Caption = 'ToolButton43'
              ImageIndex = 4
              Style = tbsSeparator
            end
            object ToolButton21: TToolButton
              Left = 54
              Top = 0
              Action = aDelOwner
              ParentShowHint = False
              ShowHint = True
            end
          end
          object dbgOwners: TDBGridEh
            Left = 2
            Top = 41
            Width = 346
            Height = 272
            Align = alClient
            Ctl3D = True
            DataGrouping.GroupLevels = <>
            DataSource = dsc_Owners
            Flat = True
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clWindowText
            Font.Height = -11
            Font.Name = 'MS Sans Serif'
            Font.Style = []
            FooterColor = clWindow
            FooterFont.Charset = DEFAULT_CHARSET
            FooterFont.Color = clWindowText
            FooterFont.Height = -11
            FooterFont.Name = 'MS Sans Serif'
            FooterFont.Style = []
            OddRowColor = clInactiveCaptionText
            Options = [dgTitles, dgColumnResize, dgColLines, dgRowLines, dgRowSelect, dgAlwaysShowSelection, dgConfirmDelete, dgCancelOnExit]
            OptionsEh = [dghFixed3D, dghHighlightFocus, dghClearSelection, dghAutoSortMarking, dghMultiSortMarking, dghDblClickOptimizeColWidth, dghDialogFind, dghColumnResize, dghColumnMove]
            ParentCtl3D = False
            ParentFont = False
            ReadOnly = True
            RowDetailPanel.Color = clBtnFace
            TabOrder = 1
            TitleFont.Charset = DEFAULT_CHARSET
            TitleFont.Color = clWindowText
            TitleFont.Height = -11
            TitleFont.Name = 'MS Sans Serif'
            TitleFont.Style = [fsBold]
            UseMultiTitle = True
            VTitleMargin = 5
            OnDblClick = aEditOwnerExecute
            Columns = <
              item
                EditButtons = <>
                FieldName = 'ID'
                Footers = <>
                Visible = False
              end
              item
                EditButtons = <>
                FieldName = 'NAME'
                Footers = <>
              end
              item
                EditButtons = <>
                FieldName = 'OPERCENT'
                Footers = <>
              end
              item
                EditButtons = <>
                FieldName = 'BDATE'
                Footers = <>
              end
              item
                EditButtons = <>
                FieldName = 'EDATE'
                Footers = <>
                Width = 67
              end
              item
                EditButtons = <>
                FieldName = 'DOC_NO'
                Footers = <>
              end
              item
                EditButtons = <>
                FieldName = 'DOCDATE'
                Footers = <>
              end
              item
                EditButtons = <>
                FieldName = 'DOC_TYPE'
                Footers = <>
              end
              item
                EditButtons = <>
                FieldName = 'DOC_ORGAN'
                Footers = <>
              end
              item
                EditButtons = <>
                FieldName = 'DESCRIPTION'
                Footers = <>
              end>
            object RowDetailData: TRowDetailPanelControlEh
            end
          end
        end
        object GroupBox8: TGroupBox
          Left = 0
          Top = 0
          Width = 350
          Height = 89
          Align = alTop
          Caption = ' '#1055#1083#1072#1090#1077#1083#1100#1097#1080#1082' '
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = [fsBold]
          ParentFont = False
          TabOrder = 1
          DesignSize = (
            350
            89)
          object Label23: TLabel
            Left = 72
            Top = 18
            Width = 27
            Height = 13
            Alignment = taRightJustify
            Caption = #1060#1048#1054
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clWindowText
            Font.Height = -11
            Font.Name = 'MS Sans Serif'
            Font.Style = []
            ParentFont = False
          end
          object Label24: TLabel
            Left = 32
            Top = 62
            Width = 67
            Height = 13
            Alignment = taRightJustify
            Caption = #1054#1088#1075#1072#1085#1080#1079#1072#1094#1080#1103
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clWindowText
            Font.Height = -11
            Font.Name = 'MS Sans Serif'
            Font.Style = []
            ParentFont = False
          end
          object Label25: TLabel
            Left = 62
            Top = 40
            Width = 37
            Height = 13
            Alignment = taRightJustify
            Caption = #1058#1072#1073#1077#1083#1100
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clWindowText
            Font.Height = -11
            Font.Name = 'MS Sans Serif'
            Font.Style = []
            ParentFont = False
          end
          object lcbEmployer: TDBLookupComboboxEh
            Left = 104
            Top = 58
            Width = 232
            Height = 21
            AlwaysShowBorder = True
            Anchors = [akLeft, akTop, akRight]
            DataField = 'PAYER_EMPLOY_ID'
            DataSource = dsc_MainAbon
            DropDownBox.SpecRow.CellsText = '---'
            DropDownBox.SpecRow.Visible = True
            EditButtons = <>
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clWindowText
            Font.Height = -11
            Font.Name = 'MS Sans Serif'
            Font.Style = []
            Flat = True
            KeyField = 'ID'
            ListField = 'EMPNAME'
            ListSource = dsc_Employers
            ParentFont = False
            TabOrder = 1
            Visible = True
            OnChange = lcbWorkAbilityChange
          end
          object dbeTabNum: TDBEditEh
            Left = 104
            Top = 36
            Width = 232
            Height = 21
            AlwaysShowBorder = True
            Anchors = [akLeft, akTop, akRight]
            DataField = 'PAYER_TABNUM'
            DataSource = dsc_MainAbon
            EditButtons = <>
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clWindowText
            Font.Height = -11
            Font.Name = 'MS Sans Serif'
            Font.Style = []
            Flat = True
            ParentFont = False
            TabOrder = 0
            Visible = True
          end
          object dbeName: TDBComboBoxEh
            Left = 104
            Top = 14
            Width = 232
            Height = 21
            AlwaysShowBorder = True
            Anchors = [akLeft, akTop, akRight]
            DataField = 'PAYER_FIO'
            DataSource = dsc_MainAbon
            EditButtons = <>
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clWindowText
            Font.Height = -11
            Font.Name = 'MS Sans Serif'
            Font.Style = []
            Flat = True
            ParentFont = False
            TabOrder = 2
            Visible = True
          end
        end
        object GroupBox18: TGroupBox
          Left = 0
          Top = 89
          Width = 350
          Height = 40
          Align = alTop
          Caption = ' '#1044#1086#1082#1091#1084#1077#1085#1090' '#1085#1072' '#1082#1074#1072#1088#1090#1080#1088#1091' '
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = [fsBold]
          ParentFont = False
          TabOrder = 2
          DesignSize = (
            350
            40)
          object dbeOwnerDoc: TDBEditEh
            Left = 8
            Top = 14
            Width = 328
            Height = 21
            AlwaysShowBorder = True
            Anchors = [akLeft, akTop, akRight]
            DataField = 'FORDER'
            DataSource = dsc_MainAbon
            EditButtons = <>
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clWindowText
            Font.Height = -11
            Font.Name = 'MS Sans Serif'
            Font.Style = []
            Flat = True
            ParentFont = False
            TabOrder = 0
            Visible = True
          end
        end
      end
      object gbOtherPotrs: TGroupBox
        Left = 353
        Top = 0
        Width = 431
        Height = 445
        Align = alClient
        Caption = ' '#1055#1088#1086#1095#1080#1077' '#1087#1086#1090#1088#1077#1073#1080#1090#1077#1083#1080' '
        Constraints.MinWidth = 300
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = [fsBold]
        ParentFont = False
        TabOrder = 1
        object ToolBar6: TToolBar
          Left = 2
          Top = 15
          Width = 427
          Height = 26
          Caption = 'ToolBar5'
          EdgeBorders = []
          Flat = True
          Images = MAIN.ImageList
          TabOrder = 0
          object ToolButton24: TToolButton
            Left = 0
            Top = 0
            Action = aNewOtherPotr
            ParentShowHint = False
            ShowHint = True
          end
          object ToolButton46: TToolButton
            Left = 23
            Top = 0
            Action = aEditOtherPotr
            ParentShowHint = False
            ShowHint = True
          end
          object ToolButton44: TToolButton
            Left = 46
            Top = 0
            Width = 8
            Caption = 'ToolButton44'
            ImageIndex = 4
            Style = tbsSeparator
          end
          object ToolButton25: TToolButton
            Left = 54
            Top = 0
            Action = aDelOtherPotr
            ParentShowHint = False
            ShowHint = True
          end
        end
        object dbgOtherPotrs: TDBGridEh
          Left = 2
          Top = 41
          Width = 427
          Height = 401
          Align = alClient
          DataGrouping.GroupLevels = <>
          DataSource = dsc_OtherPotrs
          Flat = True
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          FooterColor = clWindow
          FooterFont.Charset = DEFAULT_CHARSET
          FooterFont.Color = clWindowText
          FooterFont.Height = -11
          FooterFont.Name = 'MS Sans Serif'
          FooterFont.Style = []
          OddRowColor = clInactiveCaptionText
          Options = [dgTitles, dgColumnResize, dgColLines, dgRowLines, dgRowSelect, dgAlwaysShowSelection, dgConfirmDelete, dgCancelOnExit]
          OptionsEh = [dghFixed3D, dghHighlightFocus, dghClearSelection, dghAutoSortMarking, dghMultiSortMarking, dghDblClickOptimizeColWidth, dghDialogFind, dghColumnResize, dghColumnMove]
          ParentFont = False
          ReadOnly = True
          RowDetailPanel.Color = clBtnFace
          TabOrder = 1
          TitleFont.Charset = DEFAULT_CHARSET
          TitleFont.Color = clWindowText
          TitleFont.Height = -11
          TitleFont.Name = 'MS Sans Serif'
          TitleFont.Style = [fsBold]
          UseMultiTitle = True
          Columns = <
            item
              EditButtons = <>
              FieldName = 'POTR_NAME'
              Footers = <>
            end
            item
              EditButtons = <>
              FieldName = 'POTR_COUNT'
              Footers = <>
              Width = 87
            end
            item
              EditButtons = <>
              FieldName = 'BDATE'
              Footers = <>
            end
            item
              EditButtons = <>
              FieldName = 'EDATE'
              Footers = <>
            end
            item
              EditButtons = <>
              FieldName = 'CREATER'
              Footers = <>
            end
            item
              EditButtons = <>
              FieldName = 'CREATEDATE'
              Footers = <>
            end>
          object RowDetailData: TRowDetailPanelControlEh
          end
        end
      end
    end
    object TabSheet5: TTabSheet
      Caption = #1055#1088#1080#1084#1077#1095#1072#1085#1080#1103
      ImageIndex = 2
      object Splitter4: TSplitter
        Left = 305
        Top = 0
        Height = 445
        MinSize = 250
      end
      object GroupBox14: TGroupBox
        Left = 0
        Top = 0
        Width = 305
        Height = 445
        Align = alLeft
        Caption = ' '#1048#1089#1090#1086#1088#1080#1103' '#1089#1074#1086#1081#1089#1090#1074' '#1072#1073#1086#1085#1077#1085#1090#1072' '
        Constraints.MinWidth = 200
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = [fsBold]
        ParentFont = False
        TabOrder = 0
        object dbgAbonHist: TDBGridEh
          Left = 2
          Top = 41
          Width = 301
          Height = 402
          Align = alClient
          DataGrouping.GroupLevels = <>
          DataSource = dsc_AbonentHist
          Flat = True
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          FooterColor = clWindow
          FooterFont.Charset = DEFAULT_CHARSET
          FooterFont.Color = clWindowText
          FooterFont.Height = -11
          FooterFont.Name = 'MS Sans Serif'
          FooterFont.Style = [fsBold]
          OddRowColor = clInactiveCaptionText
          Options = [dgTitles, dgColumnResize, dgColLines, dgRowLines, dgRowSelect, dgConfirmDelete, dgCancelOnExit]
          OptionsEh = [dghFixed3D, dghHighlightFocus, dghClearSelection, dghAutoSortMarking, dghMultiSortMarking, dghDblClickOptimizeColWidth, dghDialogFind, dghColumnResize, dghColumnMove]
          ParentFont = False
          ReadOnly = True
          RowDetailPanel.Color = clBtnFace
          TabOrder = 0
          TitleFont.Charset = DEFAULT_CHARSET
          TitleFont.Color = clWindowText
          TitleFont.Height = -11
          TitleFont.Name = 'MS Sans Serif'
          TitleFont.Style = [fsBold]
          UseMultiTitle = True
          VTitleMargin = 5
          Columns = <
            item
              EditButtons = <>
              FieldName = 'RFIELD_DESCRIPT'
              Footers = <>
            end
            item
              EditButtons = <>
              FieldName = 'ROLD_VALUE'
              Footers = <>
            end
            item
              EditButtons = <>
              FieldName = 'RDOCDATE'
              Footers = <>
            end
            item
              EditButtons = <>
              FieldName = 'MODIFIER'
              Footers = <>
            end
            item
              EditButtons = <>
              FieldName = 'RMODIFYDATE'
              Footers = <>
            end
            item
              EditButtons = <>
              FieldName = 'RRECORD_ID'
              Footers = <>
              Visible = False
            end
            item
              EditButtons = <>
              FieldName = 'RNOTE'
              Footers = <>
            end
            item
              EditButtons = <>
              FieldName = 'IS_DELETED'
              Footers = <>
              Visible = False
            end>
          object RowDetailData: TRowDetailPanelControlEh
          end
        end
        object ToolBar3: TToolBar
          Left = 2
          Top = 15
          Width = 301
          Height = 26
          Caption = 'ToolBar5'
          EdgeBorders = []
          Flat = True
          Images = MAIN.ImageList
          TabOrder = 1
          object ToolButton12: TToolButton
            Left = 0
            Top = 0
            Action = aAbonHistDel
            ParentShowHint = False
            ShowHint = True
          end
        end
      end
      object Panel10: TPanel
        Left = 308
        Top = 0
        Width = 476
        Height = 445
        Align = alClient
        BevelOuter = bvNone
        Caption = 'Panel10'
        Constraints.MinWidth = 440
        TabOrder = 1
        object GroupBox15: TGroupBox
          Left = 0
          Top = 0
          Width = 476
          Height = 310
          Align = alClient
          Caption = ' '#1055#1088#1080#1084#1077#1095#1072#1085#1080#1103' '
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = [fsBold]
          ParentFont = False
          TabOrder = 0
          object dbmNote: TDBMemo
            Left = 2
            Top = 15
            Width = 472
            Height = 293
            Align = alClient
            BevelInner = bvLowered
            BevelOuter = bvRaised
            BevelKind = bkFlat
            BorderStyle = bsNone
            Ctl3D = True
            DataField = 'NOTE'
            DataSource = dsc_MainAbon
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clWindowText
            Font.Height = -11
            Font.Name = 'MS Sans Serif'
            Font.Style = []
            ParentCtl3D = False
            ParentFont = False
            TabOrder = 0
          end
        end
        object GroupBox9: TGroupBox
          Left = 0
          Top = 310
          Width = 476
          Height = 135
          Align = alBottom
          Caption = ' '#1057#1083#1091#1078#1077#1073#1085#1099#1077' '#1076#1072#1085#1085#1099#1077' '
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = [fsBold]
          ParentFont = False
          TabOrder = 1
          object Label26: TLabel
            Left = 30
            Top = 62
            Width = 37
            Height = 13
            Alignment = taRightJustify
            Caption = #1057#1086#1079#1076#1072#1083
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clWindowText
            Font.Height = -11
            Font.Name = 'MS Sans Serif'
            Font.Style = []
            ParentFont = False
          end
          object Label27: TLabel
            Left = 214
            Top = 62
            Width = 77
            Height = 13
            Alignment = taRightJustify
            Caption = #1044#1072#1090#1072' '#1089#1086#1079#1076#1072#1085#1080#1103
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clWindowText
            Font.Height = -11
            Font.Name = 'MS Sans Serif'
            Font.Style = []
            ParentFont = False
          end
          object Label28: TLabel
            Left = 21
            Top = 86
            Width = 46
            Height = 13
            Alignment = taRightJustify
            Caption = #1048#1079#1084#1077#1085#1080#1083
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clWindowText
            Font.Height = -11
            Font.Name = 'MS Sans Serif'
            Font.Style = []
            ParentFont = False
          end
          object Label29: TLabel
            Left = 206
            Top = 86
            Width = 85
            Height = 13
            Alignment = taRightJustify
            Caption = #1044#1072#1090#1072' '#1080#1079#1084#1077#1085#1077#1085#1080#1103
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clWindowText
            Font.Height = -11
            Font.Name = 'MS Sans Serif'
            Font.Style = []
            ParentFont = False
          end
          object Label42: TLabel
            Left = 50
            Top = 110
            Width = 17
            Height = 13
            Alignment = taRightJustify
            Caption = #1048#1044
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clWindowText
            Font.Height = -11
            Font.Name = 'MS Sans Serif'
            Font.Style = []
            ParentFont = False
          end
          object Label43: TLabel
            Left = 235
            Top = 110
            Width = 56
            Height = 13
            Alignment = taRightJustify
            Caption = #1048#1044' '#1079#1076#1072#1085#1080#1103
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clWindowText
            Font.Height = -11
            Font.Name = 'MS Sans Serif'
            Font.Style = []
            ParentFont = False
          end
          object Label30: TLabel
            Left = 72
            Top = 18
            Width = 95
            Height = 13
            Alignment = taRightJustify
            Caption = #1044#1072#1090#1072' '#1086#1090#1082#1088#1099#1090#1080#1103' '#1051#1057
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clWindowText
            Font.Height = -11
            Font.Name = 'MS Sans Serif'
            Font.Style = []
            ParentFont = False
          end
          object Label31: TLabel
            Left = 295
            Top = 18
            Width = 96
            Height = 13
            Alignment = taRightJustify
            Caption = #1044#1072#1090#1072' '#1079#1072#1082#1088#1099#1090#1080#1103' '#1051#1057
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clWindowText
            Font.Height = -11
            Font.Name = 'MS Sans Serif'
            Font.Style = []
            ParentFont = False
          end
          object dbeCreater: TDBEditEh
            Left = 72
            Top = 58
            Width = 121
            Height = 21
            TabStop = False
            AlwaysShowBorder = True
            Color = clInactiveCaptionText
            Ctl3D = True
            DataField = 'CREATER'
            DataSource = dsc_MainAbon
            EditButtons = <>
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clWindowText
            Font.Height = -11
            Font.Name = 'MS Sans Serif'
            Font.Style = []
            Flat = True
            ParentCtl3D = False
            ParentFont = False
            ReadOnly = True
            TabOrder = 0
            Visible = True
          end
          object dbeModifier: TDBEditEh
            Left = 72
            Top = 82
            Width = 121
            Height = 21
            TabStop = False
            AlwaysShowBorder = True
            Color = clInactiveCaptionText
            Ctl3D = True
            DataField = 'MODIFIER'
            DataSource = dsc_MainAbon
            EditButtons = <>
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clWindowText
            Font.Height = -11
            Font.Name = 'MS Sans Serif'
            Font.Style = []
            Flat = True
            ParentCtl3D = False
            ParentFont = False
            ReadOnly = True
            TabOrder = 1
            Visible = True
          end
          object dbeID: TDBEditEh
            Left = 72
            Top = 106
            Width = 121
            Height = 21
            TabStop = False
            AlwaysShowBorder = True
            Color = clInactiveCaptionText
            Ctl3D = True
            DataField = 'ID'
            DataSource = dsc_MainAbon
            EditButtons = <>
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clWindowText
            Font.Height = -11
            Font.Name = 'MS Sans Serif'
            Font.Style = []
            Flat = True
            ParentCtl3D = False
            ParentFont = False
            ReadOnly = True
            TabOrder = 2
            Visible = True
          end
          object dbeBuildingID: TDBEditEh
            Left = 296
            Top = 106
            Width = 121
            Height = 21
            TabStop = False
            AlwaysShowBorder = True
            Color = clInactiveCaptionText
            Ctl3D = True
            DataField = 'BUILDING_ID'
            DataSource = dsc_MainAbon
            EditButtons = <>
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clWindowText
            Font.Height = -11
            Font.Name = 'MS Sans Serif'
            Font.Style = []
            Flat = True
            ParentCtl3D = False
            ParentFont = False
            ReadOnly = True
            TabOrder = 3
            Visible = True
          end
          object dteModifyDate: TDBDateTimeEditEh
            Left = 296
            Top = 82
            Width = 121
            Height = 21
            TabStop = False
            AlwaysShowBorder = True
            Color = clInactiveCaptionText
            DataField = 'MODIFYDATE'
            DataSource = dsc_MainAbon
            Enabled = False
            EditButtons = <>
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clWindowText
            Font.Height = -11
            Font.Name = 'MS Sans Serif'
            Font.Style = []
            Flat = True
            Kind = dtkDateEh
            ParentFont = False
            ReadOnly = True
            TabOrder = 4
            Visible = True
          end
          object dteCreateDate: TDBDateTimeEditEh
            Left = 296
            Top = 58
            Width = 121
            Height = 21
            TabStop = False
            AlwaysShowBorder = True
            Color = clInactiveCaptionText
            DataField = 'CREATEDATE'
            DataSource = dsc_MainAbon
            Enabled = False
            EditButtons = <>
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clWindowText
            Font.Height = -11
            Font.Name = 'MS Sans Serif'
            Font.Style = []
            Flat = True
            Kind = dtkDateEh
            ParentFont = False
            ReadOnly = True
            TabOrder = 5
            Visible = True
          end
          object dteEdate: TDBDateTimeEditEh
            Left = 296
            Top = 34
            Width = 121
            Height = 21
            TabStop = False
            AlwaysShowBorder = True
            Color = clInactiveCaptionText
            DataField = 'EDATE'
            DataSource = dsc_MainAbon
            Enabled = False
            EditButtons = <>
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clWindowText
            Font.Height = -11
            Font.Name = 'MS Sans Serif'
            Font.Style = []
            Flat = True
            Kind = dtkDateEh
            ParentFont = False
            ReadOnly = True
            TabOrder = 6
            Visible = True
          end
          object dteBdate: TDBDateTimeEditEh
            Left = 72
            Top = 34
            Width = 121
            Height = 21
            TabStop = False
            AlwaysShowBorder = True
            Color = clInactiveCaptionText
            DataField = 'BDATE'
            DataSource = dsc_MainAbon
            Enabled = False
            EditButtons = <>
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clWindowText
            Font.Height = -11
            Font.Name = 'MS Sans Serif'
            Font.Style = []
            Flat = True
            Kind = dtkDateEh
            ParentFont = False
            ReadOnly = True
            TabOrder = 7
            Visible = True
          end
        end
      end
    end
  end
  object Panel9: TPanel [5]
    Left = 0
    Top = 25
    Width = 792
    Height = 27
    Align = alTop
    BevelInner = bvRaised
    BevelOuter = bvLowered
    Constraints.MinWidth = 780
    TabOrder = 3
    DesignSize = (
      792
      27)
    object Label2: TLabel
      Left = 10
      Top = 6
      Width = 112
      Height = 13
      Alignment = taRightJustify
      Caption = #1050#1074#1072#1088#1090#1080#1088#1086#1089#1098#1077#1084#1097#1080#1082
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
    end
    object Label41: TLabel
      Left = 622
      Top = 6
      Width = 53
      Height = 13
      Alignment = taRightJustify
      Anchors = [akTop, akRight]
      Caption = #1058#1077#1083#1077#1092#1086#1085
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
    end
    object dbePhone: TDBEditEh
      Left = 682
      Top = 4
      Width = 97
      Height = 19
      AlwaysShowBorder = True
      Anchors = [akTop, akRight]
      DataField = 'PHONE'
      DataSource = dsc_MainAbon
      EditButtons = <>
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      Flat = True
      ParentFont = False
      TabOrder = 0
      Visible = True
    end
    object dbeArendator: TDBLookupComboboxEh
      Left = 128
      Top = 4
      Width = 433
      Height = 19
      AlwaysShowBorder = True
      Anchors = [akLeft, akTop, akRight]
      DataField = 'CLIENT_ID'
      DataSource = dsc_MainAbon
      EditButtons = <
        item
          Enabled = False
          Style = ebsEllipsisEh
          OnClick = dbeArendatorEditButtons0Click
        end>
      Flat = True
      KeyField = 'ID'
      ListField = 'NAME'
      ListSource = dsc_Arendators
      TabOrder = 1
      Visible = True
      OnChange = lcbWorkAbilityChange
    end
  end
  inherited ActionList1: TActionList
    Images = MAIN.ImageList
    Left = 336
    Top = 0
    inherited aSave: TAction
      Category = 'Total'
      Enabled = False
      OnExecute = aSaveExecute
    end
    inherited aCancel: TAction
      Category = 'Total'
      OnExecute = aCancelExecute
    end
    inherited aPrint: TAction
      Category = 'Total'
      OnExecute = aPrintExecute
    end
    object aNewTenant: TAction
      Category = 'Clients'
      Caption = #1053#1086#1074#1099#1081' '#1078#1080#1083#1077#1094
      Hint = #1053#1086#1074#1099#1081' '#1078#1080#1083#1077#1094
      ImageIndex = 14
      OnExecute = aNewTenantExecute
    end
    object aEditTenant: TAction
      Category = 'Clients'
      Caption = #1048#1079#1084#1077#1085#1080#1090#1100' '#1078#1080#1083#1100#1094#1072
      Hint = #1048#1079#1084#1077#1085#1080#1090#1100' '#1078#1080#1083#1100#1094#1072
      ImageIndex = 13
      OnExecute = aEditTenantExecute
    end
    object aNewOwner: TAction
      Category = 'Owners'
      Caption = #1044#1086#1073#1072#1074#1080#1090#1100' '#1089#1086#1073#1089#1090#1074#1077#1085#1085#1080#1082#1072
      Hint = #1044#1086#1073#1072#1074#1080#1090#1100' '#1089#1086#1073#1089#1090#1074#1077#1085#1085#1080#1082#1072
      ImageIndex = 9
      OnExecute = aNewOwnerExecute
    end
    object aEditOwner: TAction
      Category = 'Owners'
      Caption = #1048#1079#1084#1077#1085#1080#1090#1100' '#1080#1085#1086#1092#1088#1084#1072#1094#1080#1102' '#1086' '#1089#1086#1073#1089#1090#1074#1077#1085#1085#1080#1082#1077
      Hint = #1048#1079#1084#1077#1085#1080#1090#1100' '#1080#1085#1086#1092#1088#1084#1072#1094#1080#1102' '#1086' '#1089#1086#1073#1089#1090#1074#1077#1085#1085#1080#1082#1077
      ImageIndex = 5
      OnExecute = aEditOwnerExecute
    end
    object aDelOwner: TAction
      Category = 'Owners'
      Caption = #1059#1076#1072#1083#1080#1090#1100' '#1089#1086#1073#1089#1090#1074#1077#1085#1085#1080#1082#1072
      Hint = #1059#1076#1072#1083#1080#1090#1100' '#1089#1086#1073#1089#1090#1074#1077#1085#1085#1080#1082#1072
      ImageIndex = 2
      OnExecute = aDelOwnerExecute
    end
    object aCommitOwner: TAction
      Category = 'Owners'
      Caption = #1055#1086#1076#1090#1074#1077#1088#1076#1080#1090#1100' '#1080#1079#1084#1077#1085#1077#1085#1080#1103
      Enabled = False
      Hint = #1055#1086#1076#1090#1074#1077#1088#1076#1080#1090#1100' '#1080#1079#1084#1077#1085#1077#1085#1080#1103' '#1089#1087#1080#1089#1082#1072' '#1089#1086#1073#1089#1090#1074#1077#1085#1085#1080#1082#1086#1074
      ImageIndex = 0
    end
    object aRollbackOwner: TAction
      Category = 'Owners'
      Caption = #1054#1090#1084#1077#1085#1080#1090#1100' '#1080#1079#1084#1077#1085#1077#1085#1080#1103
      Enabled = False
      Hint = #1054#1090#1084#1077#1085#1080#1090#1100' '#1080#1079#1084#1077#1085#1077#1085#1080#1077' '#1089#1087#1080#1089#1082#1072' '#1089#1086#1073#1089#1090#1074#1077#1085#1085#1080#1082#1086#1074
      ImageIndex = 3
    end
    object aNewOtherPotr: TAction
      Category = 'OtherPotrs'
      Caption = #1053#1086#1074#1099#1081' '#1087#1086#1090#1088#1077#1073#1080#1090#1077#1083#1100
      Hint = #1053#1086#1074#1099#1081' '#1087#1086#1090#1088#1077#1073#1080#1090#1077#1083#1100
      ImageIndex = 9
      OnExecute = aNewOtherPotrExecute
    end
    object aEditOtherPotr: TAction
      Category = 'OtherPotrs'
      Caption = #1048#1079#1084#1077#1085#1080#1090#1100' '#1087#1086#1090#1088#1077#1073#1080#1090#1077#1083#1103
      Hint = #1048#1079#1084#1077#1085#1080#1090#1100' '#1087#1086#1090#1088#1077#1073#1080#1090#1077#1083#1103
      ImageIndex = 5
      OnExecute = aEditOtherPotrExecute
    end
    object aDelOtherPotr: TAction
      Category = 'OtherPotrs'
      Caption = #1059#1076#1072#1083#1080#1090#1100' '#1087#1086#1090#1088#1077#1073#1080#1090#1077#1083#1103
      Hint = #1059#1076#1072#1083#1080#1090#1100' '#1087#1086#1090#1088#1077#1073#1080#1090#1077#1083#1103
      ImageIndex = 2
      OnExecute = aDelOtherPotrExecute
    end
    object aNewDocument: TAction
      Caption = #1053#1086#1074#1099#1081' '#1076#1086#1082#1091#1084#1077#1085#1090' '#1086' '#1076#1086#1093#1086#1076#1072#1093
      Hint = #1053#1086#1074#1099#1081' '#1076#1086#1082#1091#1084#1077#1085#1090' '#1086' '#1076#1086#1093#1086#1076#1072#1093
      ImageIndex = 9
    end
    object aEditDocument: TAction
      Caption = #1048#1079#1084#1077#1085#1080#1090#1100' '#1076#1086#1082#1091#1084#1077#1085#1090' '#1086' '#1076#1086#1093#1086#1076#1072#1093
      Hint = #1048#1079#1084#1077#1085#1080#1090#1100' '#1076#1086#1082#1091#1084#1077#1085#1090' '#1086' '#1076#1086#1093#1086#1076#1072#1093
      ImageIndex = 5
    end
    object aDelDocument: TAction
      Caption = #1059#1076#1072#1083#1080#1090#1100' '#1076#1086#1082#1091#1084#1077#1085#1090' '#1086' '#1076#1086#1093#1086#1076#1072#1093
      Hint = #1059#1076#1072#1083#1080#1090#1100' '#1076#1086#1082#1091#1084#1077#1085#1090' '#1086' '#1076#1086#1093#1086#1076#1072#1093
      ImageIndex = 2
    end
    object aCommitDocument: TAction
      Caption = #1055#1086#1076#1090#1074#1077#1088#1076#1080#1090#1100' '#1080#1079#1084#1077#1085#1077#1085#1080#1077' '#1089#1087#1080#1089#1082#1072' '#1076#1086#1082#1091#1084#1077#1085#1090#1086#1074' '#1086' '#1076#1086#1093#1086#1076#1072#1093
      Enabled = False
      Hint = #1055#1086#1076#1090#1074#1077#1088#1076#1080#1090#1100' '#1080#1079#1084#1077#1085#1077#1085#1080#1077' '#1089#1087#1080#1089#1082#1072' '#1076#1086#1082#1091#1084#1077#1085#1090#1086#1074' '#1086' '#1076#1086#1093#1086#1076#1072#1093
      ImageIndex = 0
    end
    object aRollbackDocument: TAction
      Caption = #1054#1090#1084#1077#1085#1080#1090#1100' '#1080#1079#1084#1077#1085#1077#1085#1080#1077' '#1089#1087#1080#1089#1082#1072' '#1076#1086#1082#1091#1084#1077#1085#1090#1086#1074' '#1086' '#1076#1086#1093#1086#1076#1072#1093
      Enabled = False
      Hint = #1054#1090#1084#1077#1085#1080#1090#1100' '#1080#1079#1084#1077#1085#1077#1085#1080#1077' '#1089#1087#1080#1089#1082#1072' '#1076#1086#1082#1091#1084#1077#1085#1090#1086#1074' '#1086' '#1076#1086#1093#1086#1076#1072#1093
      ImageIndex = 3
    end
    object aNewService: TAction
      Category = 'Services'
      Caption = #1044#1086#1073#1072#1074#1080#1090#1100' '#1091#1089#1083#1091#1075#1091
      Hint = #1044#1086#1073#1072#1074#1080#1090#1100' '#1091#1089#1083#1091#1075#1091
      ImageIndex = 9
      OnExecute = aNewServiceExecute
    end
    object aEditService: TAction
      Category = 'Services'
      Caption = #1048#1079#1084#1077#1085#1080#1090#1100' '#1091#1089#1083#1091#1075#1091
      Hint = #1048#1079#1084#1077#1085#1080#1090#1100' '#1091#1089#1083#1091#1075#1091
      ImageIndex = 5
      OnExecute = aEditServiceExecute
    end
    object aDelService: TAction
      Category = 'Services'
      Caption = #1059#1076#1072#1083#1080#1090#1100'/'#1079#1072#1082#1088#1099#1090#1100' '#1091#1089#1083#1091#1075#1091
      Hint = #1059#1076#1072#1083#1080#1090#1100'/'#1079#1072#1082#1088#1099#1090#1100' '#1091#1089#1083#1091#1075#1091
      ImageIndex = 2
    end
    object aCommitService: TAction
      Category = 'Services'
      Caption = #1055#1086#1076#1090#1074#1077#1088#1076#1080#1090#1100' '#1080#1079#1084#1077#1085#1077#1085#1080#1077' '#1089#1087#1080#1089#1082#1072' '#1091#1089#1083#1091#1075
      Enabled = False
      Hint = #1055#1086#1076#1090#1074#1077#1088#1076#1080#1090#1100' '#1080#1079#1084#1077#1085#1077#1085#1080#1077' '#1089#1087#1080#1089#1082#1072' '#1091#1089#1083#1091#1075
      ImageIndex = 0
    end
    object aRollbackService: TAction
      Category = 'Services'
      Caption = #1054#1090#1084#1077#1085#1080#1090#1100' '#1080#1079#1084#1077#1085#1077#1085#1080#1077' '#1089#1087#1080#1089#1082#1072' '#1091#1089#1083#1091#1075
      Enabled = False
      Hint = #1054#1090#1084#1077#1085#1080#1090#1100' '#1080#1079#1084#1077#1085#1077#1085#1080#1077' '#1089#1087#1080#1089#1082#1072' '#1091#1089#1083#1091#1075
      ImageIndex = 3
    end
    object aGoToBuilding: TAction
      Category = 'Total'
      Caption = #1055#1077#1088#1077#1081#1090#1080' '#1074' '#1079#1076#1072#1085#1080#1077
      Hint = #1055#1077#1088#1077#1081#1090#1080' '#1074' '#1079#1076#1072#1085#1080#1077
      OnExecute = aGoToBuildingExecute
    end
    object aAddDelClient: TAction
      Caption = #1042#1099#1073#1088#1072#1090#1100'/'#1080#1079#1084#1077#1085#1080#1090#1100' '#1082#1074#1072#1088#1090#1080#1088#1086#1089#1098#1077#1084#1097#1080#1082#1072
      Hint = #1042#1099#1073#1088#1072#1090#1100'/'#1080#1079#1084#1077#1085#1080#1090#1100' '#1082#1074#1072#1088#1090#1080#1088#1086#1089#1098#1077#1084#1097#1080#1082#1072
    end
    object aOwner2Tenant: TAction
      Caption = #1057#1076#1077#1083#1072#1090#1100' '#1082#1074#1072#1088#1090#1080#1088#1086#1089#1098#1077#1084#1097#1080#1082#1072' '#1078#1080#1083#1100#1094#1086#1084
      Hint = #1057#1076#1077#1083#1072#1090#1100' '#1082#1074#1072#1088#1090#1080#1088#1086#1089#1098#1077#1084#1097#1080#1082#1072' '#1078#1080#1083#1100#1094#1086#1084
    end
    object aTenant2Owner: TAction
      Caption = #1057#1076#1077#1083#1072#1090#1100' '#1078#1080#1083#1100#1094#1072' '#1082#1074#1072#1088#1090#1080#1088#1086#1089#1098#1077#1084#1097#1080#1082#1086#1084
      Hint = #1057#1076#1077#1083#1072#1090#1100' '#1078#1080#1083#1100#1094#1072' '#1082#1074#1072#1088#1090#1080#1088#1086#1089#1098#1077#1084#1097#1080#1082#1086#1084
    end
    object aAllowEdit: TAction
      Category = 'Total'
      Caption = #1056#1072#1079#1088#1077#1096#1080#1090#1100' '#1074#1085#1077#1089#1077#1085#1080#1077' '#1080#1079#1084#1077#1085#1077#1085#1080#1081' '#1074' '#1072#1073#1086#1085#1077#1085#1090#1072
      Hint = #1056#1072#1079#1088#1077#1096#1080#1090#1100' '#1074#1085#1077#1089#1077#1085#1080#1077' '#1080#1079#1084#1077#1085#1077#1085#1080#1081' '#1074' '#1072#1073#1086#1085#1077#1085#1090#1072
      OnExecute = aAllowEditExecute
    end
    object aClearLS: TAction
      Category = 'Total'
      Caption = #1057#1076#1077#1083#1072#1090#1100' '#1082#1074#1072#1088#1090#1080#1088#1091' '#1089#1074#1086#1073#1086#1076#1085#1086#1081
      Enabled = False
      Hint = #1057#1076#1077#1083#1072#1090#1100' '#1082#1074#1072#1088#1090#1080#1088#1091' '#1089#1074#1086#1073#1086#1076#1085#1086#1081
      OnExecute = aClearLSExecute
    end
    object aCloseLS: TAction
      Category = 'Total'
      Caption = #1047#1072#1082#1088#1099#1090#1100' '#1083#1080#1094#1077#1074#1086#1081' '#1089#1095#1077#1090
      Enabled = False
      Hint = #1047#1072#1082#1088#1099#1090#1100' '#1083#1080#1094#1077#1074#1086#1081' '#1089#1095#1077#1090
      OnExecute = aCloseLSExecute
    end
    object aRecalcSaldo: TAction
      Category = 'Total'
      Caption = #1055#1077#1088#1077#1089#1095#1080#1090#1072#1090#1100' '#1089#1072#1083#1100#1076#1086
      Hint = #1055#1077#1088#1077#1089#1095#1080#1090#1072#1090#1100' '#1089#1072#1083#1100#1076#1086' '#1072#1073#1086#1085#1077#1085#1090#1072' '#1087#1086' '#1074#1089#1077#1084' '#1076#1086#1075#1086#1074#1086#1088#1072#1084
      OnExecute = aRecalcSaldoExecute
    end
    object aPlainSaldo: TAction
      Category = 'Total'
      Caption = #1056#1072#1089#1087#1088#1077#1076#1077#1083#1080#1090#1100' '#1089#1072#1083#1100#1076#1086' '#1087#1086' '#1076#1086#1075#1086#1074#1086#1088#1072#1084
      Enabled = False
      Hint = #1056#1072#1089#1087#1088#1077#1076#1077#1083#1080#1090#1100' '#1089#1072#1083#1100#1076#1086' '#1087#1086' '#1076#1086#1075#1086#1074#1086#1088#1072#1084
      Visible = False
      OnExecute = aPlainSaldoExecute
    end
    object aChargeAbonent: TAction
      Category = 'Total'
      Caption = #1055#1088#1086#1080#1079#1074#1077#1089#1090#1080' '#1085#1072#1095#1080#1089#1083#1077#1085#1080#1077'/'#1087#1077#1088#1077#1088#1072#1089#1095#1077#1090' '#1087#1086' '#1072#1073#1086#1085#1077#1085#1090#1091
      Hint = #1055#1088#1086#1080#1079#1074#1077#1089#1090#1080' '#1085#1072#1095#1080#1089#1083#1077#1085#1080#1077'/'#1087#1077#1088#1077#1088#1072#1089#1095#1077#1090' '#1087#1086' '#1072#1073#1086#1085#1077#1085#1090#1091
    end
    object aShowChargeService: TAction
      Caption = #1056#1072#1089#1096#1080#1092#1088#1086#1074#1082#1072' '#1085#1072#1095#1080#1089#1083#1077#1085#1080#1103' '#1074#1099#1076#1077#1083#1077#1085#1085#1086#1081' '#1091#1089#1083#1091#1075#1080
      Hint = #1056#1072#1089#1096#1080#1092#1088#1086#1074#1082#1072' '#1085#1072#1095#1080#1089#1083#1077#1085#1080#1103' '#1074#1099#1076#1077#1083#1077#1085#1085#1086#1081' '#1091#1089#1083#1091#1075#1080
      ImageIndex = 8
      OnExecute = aShowChargeServiceExecute
    end
    object aChargeService: TAction
      Caption = #1055#1088#1086#1080#1079#1074#1077#1089#1090#1080' '#1085#1072#1095#1080#1089#1083#1077#1085#1080#1077'/'#1087#1077#1088#1077#1088#1072#1089#1095#1077#1090' '#1087#1086' '#1074#1099#1076#1077#1083#1077#1085#1085#1086#1081' '#1091#1089#1083#1091#1075#1077
      Hint = #1055#1088#1086#1080#1079#1074#1077#1089#1090#1080' '#1085#1072#1095#1080#1089#1083#1077#1085#1080#1077'/'#1087#1077#1088#1077#1088#1072#1089#1095#1077#1090' '#1087#1086' '#1074#1099#1076#1077#1083#1077#1085#1085#1086#1081' '#1091#1089#1083#1091#1075#1077
      ImageIndex = 12
      OnExecute = aChargeServiceExecute
    end
    object aCreateOperation: TAction
      Caption = #1055#1088#1086#1074#1077#1089#1090#1080' '#1086#1087#1077#1088#1072#1094#1080#1102' '#1087#1086' '#1074#1099#1076#1077#1083#1077#1085#1085#1086#1081' '#1091#1089#1083#1091#1075#1077
      Hint = #1055#1088#1086#1074#1077#1089#1090#1080' '#1086#1087#1077#1088#1072#1094#1080#1102' '#1087#1086' '#1074#1099#1076#1077#1083#1077#1085#1085#1086#1081' '#1091#1089#1083#1091#1075#1077
      Visible = False
    end
    object aMarkImport: TAction
      Category = 'Total'
      Caption = #1059#1089#1090#1072#1085#1086#1074#1080#1090#1100'/'#1089#1085#1103#1090#1100' '#1086#1090#1084#1077#1090#1082#1091' '#1086#1073' '#1080#1079#1084#1077#1085#1077#1085#1080#1080' '#1072#1073#1086#1085#1077#1085#1090#1072
      Hint = #1059#1089#1090#1072#1085#1086#1074#1080#1090#1100'/'#1089#1085#1103#1090#1100' '#1086#1090#1084#1077#1090#1082#1091' '#1086#1073' '#1080#1079#1084#1077#1085#1077#1085#1080#1080' '#1072#1073#1086#1085#1077#1085#1090#1072
    end
    object aShowLeaved: TAction
      Category = 'Clients'
      Caption = #1055#1086#1082#1072#1079#1072#1090#1100' '#1074#1099#1087#1080#1089#1072#1085#1085#1099#1093' '#1078#1080#1083#1100#1094#1086#1074
      Hint = #1055#1086#1082#1072#1079#1072#1090#1100' '#1074#1099#1087#1080#1089#1072#1085#1085#1099#1093' '#1078#1080#1083#1100#1094#1086#1074
      OnExecute = aShowLeavedExecute
    end
    object aShowChargeAbonent: TAction
      Caption = #1055#1088#1086#1080#1079#1074#1077#1089#1090#1080' '#1085#1072#1095#1080#1089#1083#1077#1085#1080#1077'/'#1087#1077#1088#1077#1088#1072#1089#1095#1077#1090' '#1087#1086' '#1074#1089#1077#1084' '#1091#1089#1083#1091#1075#1072#1084' '#1072#1073#1086#1085#1077#1085#1090#1072
      Hint = #1055#1088#1086#1080#1079#1074#1077#1089#1090#1080' '#1085#1072#1095#1080#1089#1083#1077#1085#1080#1077'/'#1087#1077#1088#1077#1088#1072#1089#1095#1077#1090' '#1087#1086' '#1074#1089#1077#1084' '#1091#1089#1083#1091#1075#1072#1084' '#1072#1073#1086#1085#1077#1085#1090#1072
      ImageIndex = 12
      OnExecute = aShowChargeAbonentExecute
    end
    object aFinalCalc: TAction
      Category = 'Total'
      Caption = #1054#1082#1086#1085#1095#1072#1090#1077#1083#1100#1085#1099#1081' '#1088#1072#1089#1095#1077#1090
      Enabled = False
      Hint = #1055#1088#1086#1080#1079#1074#1077#1089#1090#1080' '#1086#1082#1086#1085#1095#1072#1090#1077#1083#1100#1085#1099#1081' '#1088#1072#1089#1095#1077#1090
      Visible = False
      OnExecute = aFinalCalcExecute
    end
    object aAbonHistDel: TAction
      Category = 'Total'
      Caption = #1059#1076#1072#1083#1080#1090#1100' '#1079#1072#1087#1080#1089#1100' '#1080#1079' '#1080#1089#1090#1086#1088#1080#1080' '#1072#1073#1086#1085#1077#1085#1090#1072
      Hint = #1059#1076#1072#1083#1080#1090#1100' '#1079#1072#1087#1080#1089#1100' '#1080#1079' '#1080#1089#1090#1086#1088#1080#1080' '#1072#1073#1086#1085#1077#1085#1090#1072
      ImageIndex = 2
      OnExecute = aAbonHistDelExecute
    end
    object aNewMeter: TAction
      Category = 'Services'
      Caption = #1059#1089#1090#1072#1085#1086#1074#1082#1072' '#1089#1095#1077#1090#1095#1080#1082#1072
      Hint = #1059#1089#1090#1072#1085#1086#1074#1082#1072' '#1089#1095#1077#1090#1095#1080#1082#1072' '#1085#1072' '#1074#1099#1073#1088#1072#1085#1085#1091#1102' '#1091#1089#1083#1091#1075#1091
      OnExecute = aNewMeterExecute
    end
    object aSetMeterInd: TAction
      Category = 'Services'
      Caption = #1047#1072#1085#1077#1089#1077#1085#1080#1077' '#1087#1086#1082#1072#1079#1072#1085#1080#1081
      Hint = #1047#1072#1085#1077#1089#1077#1085#1080#1077' '#1087#1086#1082#1072#1079#1072#1085#1080#1081' '#1089#1095#1077#1090#1095#1080#1082#1086#1074
      OnExecute = aSetMeterIndExecute
    end
    object aSetTraits: TAction
      Category = 'Total'
      Caption = #1053#1072#1089#1090#1088#1086#1081#1082#1072' '#1087#1088#1080#1079#1085#1072#1082#1086#1074' '#1072#1073#1086#1085#1077#1085#1090#1072
      Hint = #1053#1072#1089#1090#1088#1086#1081#1082#1072' '#1087#1088#1080#1079#1085#1072#1082#1086#1074' '#1072#1073#1086#1085#1077#1085#1090#1072
      ImageIndex = 25
      OnExecute = aSetTraitsExecute
    end
  end
  object MainMenu: TMainMenu [7]
    Left = 302
    object N1: TMenuItem
      Caption = #1054#1082#1085#1086
      object N24: TMenuItem
        Action = aSave
      end
      object N25: TMenuItem
        Caption = '-'
      end
      object N23: TMenuItem
        Action = aCancel
      end
    end
    object N2: TMenuItem
      Caption = #1040#1073#1086#1085#1077#1085#1090
      object N4: TMenuItem
        Action = aGoToBuilding
      end
      object N5: TMenuItem
        Action = aAllowEdit
      end
      object N27: TMenuItem
        Action = aSetTraits
      end
      object N15: TMenuItem
        Caption = '-'
      end
      object N7: TMenuItem
        Action = aClearLS
      end
      object N6: TMenuItem
        Action = aFinalCalc
      end
      object N8: TMenuItem
        Tag = 1
        Action = aCloseLS
      end
      object N13: TMenuItem
        Caption = '-'
      end
      object N9: TMenuItem
        Action = aOwner2Tenant
      end
      object N12: TMenuItem
        Action = aTenant2Owner
      end
      object N22: TMenuItem
        Caption = '-'
      end
      object N21: TMenuItem
        Action = aMarkImport
      end
    end
    object N16: TMenuItem
      Caption = #1059#1089#1083#1091#1075#1080
      object N17: TMenuItem
        Action = aShowChargeService
      end
      object N14: TMenuItem
        Caption = '-'
      end
      object N10: TMenuItem
        Action = aPlainSaldo
      end
      object N11: TMenuItem
        Action = aRecalcSaldo
      end
      object N18: TMenuItem
        Caption = '-'
      end
      object iChargeAbonent: TMenuItem
        Action = aShowChargeAbonent
      end
      object iChargeDogovor: TMenuItem
        Action = aChargeService
      end
      object N20: TMenuItem
        Action = aCreateOperation
      end
    end
    object N3: TMenuItem
      Action = aPrint
    end
  end
  object ds_Services: TpFIBDataSet [8]
    RefreshSQL.Strings = (
      'SELECT'
      '    RDOGOVOR_ID,'
      '    RSERVICE_ID,'
      '    RSERVICE_NAME,'
      '    RCALC_TYPE,'
      '    RBALANCE,'
      '    RLAST_CHARGE,'
      '    RLAST_CDATE,'
      '    RNEW_CHARGE,'
      '    RIS_ACTIVE,'
      '    RSUPPLIER_NAME,'
      '    RMANAG_NAME,'
      '    RPENI,'
      '    RGROUP_ID,'
      '    RSUPPLIER_ID,'
      '    RGROUP_ACC,'
      '    RACCPOINT_ID,'
      '    RSUPPLIER_CLOSED_RS'
      'FROM'
      '    PROC_ABONDOGOVORS_GET_NEW(:PABONENT_ID, 0, :OLD_RGROUP_ID) ')
    SelectSQL.Strings = (
      'SELECT'
      '    RDOGOVOR_ID,'
      '    RSERVICE_ID,'
      '    RSERVICE_NAME,'
      '    RCALC_TYPE,'
      '    RBALANCE,'
      '    RLAST_CHARGE,'
      '    RLAST_CDATE,'
      '    RNEW_CHARGE,'
      '    RIS_ACTIVE,'
      '    RSUPPLIER_NAME,'
      '    RMANAG_NAME,'
      '    RPENI,'
      '    RGROUP_ID,'
      '    RSUPPLIER_ID,'
      '    RGROUP_ACC,'
      '    RACCPOINT_ID,'
      '    RSUPPLIER_CLOSED_RS'
      'FROM'
      '    PROC_ABONDOGOVORS_GET_NEW(:PABONENT_ID, 0) ')
    BeforeOpen = ds_ServicesBeforeOpen
    Transaction = SrvTrans
    Database = MAINDM.pMainDatabase
    Container = DSContainer
    Left = 220
    Top = 307
    poSQLINT64ToBCD = True
    oFetchAll = True
    object ds_ServicesRDOGOVOR_ID: TFIBIntegerField
      DisplayLabel = #1048#1044' '#1076#1086#1075#1086#1074#1086#1088#1072
      FieldName = 'RDOGOVOR_ID'
    end
    object ds_ServicesRSERVICE_ID: TFIBIntegerField
      FieldName = 'RSERVICE_ID'
      Visible = False
    end
    object ds_ServicesRSERVICE_NAME: TFIBStringField
      DisplayLabel = #1059#1089#1083#1091#1075#1072
      DisplayWidth = 20
      FieldName = 'RSERVICE_NAME'
      Size = 120
      EmptyStrToNull = True
    end
    object ds_ServicesRCALC_TYPE: TFIBIntegerField
      FieldName = 'RCALC_TYPE'
      Visible = False
    end
    object ds_ServicesRBALANCE: TFIBBCDField
      DisplayLabel = #1057#1072#1083#1100#1076#1086
      FieldName = 'RBALANCE'
      Size = 2
      RoundByScale = True
    end
    object ds_ServicesRLAST_CHARGE: TFIBBCDField
      DisplayLabel = #1053#1072#1095#1080#1089#1083#1077#1085#1086
      FieldName = 'RLAST_CHARGE'
      Size = 2
      RoundByScale = True
    end
    object ds_ServicesRLAST_CDATE: TFIBDateField
      DisplayLabel = #1044#1072#1090#1072' '#1085#1072#1095#1080#1089#1083#1077#1085#1080#1103
      FieldName = 'RLAST_CDATE'
    end
    object ds_ServicesRNEW_CHARGE: TFIBBCDField
      DisplayLabel = #1054#1078#1080#1076#1072#1077#1084#1086#1077' '#1085#1072#1095#1080#1089#1083#1077#1085#1080#1077
      FieldName = 'RNEW_CHARGE'
      Size = 2
      RoundByScale = True
    end
    object ds_ServicesRIS_ACTIVE: TFIBIntegerField
      FieldName = 'RIS_ACTIVE'
      Visible = False
    end
    object ds_ServicesRSUPPLIER_NAME: TFIBStringField
      DisplayLabel = #1058#1077#1082#1091#1097#1080#1081' '#1087#1086#1089#1090#1072#1074#1097#1080#1082
      DisplayWidth = 15
      FieldName = 'RSUPPLIER_NAME'
      Size = 60
      EmptyStrToNull = True
    end
    object ds_ServicesRMANAG_NAME: TFIBStringField
      DisplayLabel = #1058#1077#1082#1091#1097#1072#1103' '#1046#1054
      DisplayWidth = 15
      FieldName = 'RMANAG_NAME'
      Size = 60
      EmptyStrToNull = True
    end
    object ds_ServicesRPENI: TFIBBCDField
      DisplayLabel = #1057#1072#1083#1100#1076#1086' '#1087#1077#1085#1080
      FieldName = 'RPENI'
      Size = 2
      RoundByScale = True
    end
    object ds_ServicesRGROUP_ID: TFIBIntegerField
      FieldName = 'RGROUP_ID'
      Visible = False
    end
    object ds_ServicesRSUPPLIER_ID: TFIBIntegerField
      FieldName = 'RSUPPLIER_ID'
    end
    object ds_ServicesRGROUP_ACC: TFIBSmallIntField
      FieldName = 'RGROUP_ACC'
    end
    object ds_ServicesRACCPOINT_ID: TFIBIntegerField
      FieldName = 'RACCPOINT_ID'
    end
    object ds_ServicesRSUPPLIER_CLOSED_RS: TFIBSmallIntField
      FieldName = 'RSUPPLIER_CLOSED_RS'
    end
  end
  object ds_ClientHist: TpFIBDataSet [9]
    UpdateSQL.Strings = (
      'UPDATE clients_stat_hist'
      'SET is_deleted = :is_deleted'
      'WHERE id = :rrecord_id'
      '    ')
    RefreshSQL.Strings = (
      'select'
      '    roper_name,'
      '    rdocdate,'
      
        '    (select rname from user_getfullname(p.rcreateuserid) pu) as ' +
        'creater,'
      '    rcreatedate,'
      '    rrecord_id,'
      '    redate,'
      '    cast(0 as smallint) as is_deleted'
      '  from proc_client_get_status_hist(:pclient_id, null) p'
      '  where rabonent_id = :pabonent_id')
    SelectSQL.Strings = (
      'select'
      '    roper_name,'
      '    rdocdate,'
      
        '    (select rname from user_getfullname(p.rcreateuserid) pu) as ' +
        'creater,'
      '    rcreatedate,'
      '    rrecord_id,'
      '    redate,'
      '    cast(0 as smallint) as is_deleted'
      '  from proc_client_get_status_hist(:pclient_id, null) p'
      '  where rabonent_id = :pabonent_id')
    Transaction = ReadTrans
    Database = MAINDM.pMainDatabase
    UpdateTransaction = ClientsTrans
    DataSource = dsc_Clients
    Container = DSContainer
    Left = 220
    Top = 403
    poSQLINT64ToBCD = True
    oFetchAll = True
    object ds_ClientHistROPER_NAME: TFIBStringField
      DisplayLabel = #1054#1087#1077#1088#1072#1094#1080#1103
      DisplayWidth = 15
      FieldName = 'ROPER_NAME'
      Size = 255
      EmptyStrToNull = True
    end
    object ds_ClientHistRDOCDATE: TFIBDateField
      DisplayLabel = #1044#1072#1090#1072' '#1086#1087#1077#1088#1072#1094#1080#1080
      DisplayWidth = 11
      FieldName = 'RDOCDATE'
    end
    object ds_ClientHistCREATER: TFIBStringField
      DisplayLabel = #1057#1086#1079#1076#1072#1090#1077#1083#1100
      DisplayWidth = 20
      FieldName = 'CREATER'
      Size = 150
      EmptyStrToNull = True
    end
    object ds_ClientHistRCREATEDATE: TFIBDateField
      DisplayLabel = #1044#1072#1090#1072' '#1089#1086#1079#1076#1072#1085#1080#1103
      FieldName = 'RCREATEDATE'
    end
    object ds_ClientHistRRECORD_ID: TFIBIntegerField
      FieldName = 'RRECORD_ID'
      Visible = False
    end
    object ds_ClientHistREDATE: TFIBDateField
      FieldName = 'REDATE'
      Visible = False
    end
    object ds_ClientHistIS_DELETED: TFIBSmallIntField
      FieldName = 'IS_DELETED'
      Visible = False
    end
  end
  object ds_Clients: TpFIBDataSet [10]
    UpdateSQL.Strings = (
      'UPDATE CLIENTS'
      'SET '
      '    NAME = :NAME,'
      '    BIRTHDATE = :BIRTHDATE,'
      '    TEN_ID = :TEN_ID,'
      '    SEX = :SEX,'
      '    WORKABILITY = :WORKABILITY,'
      '    LIVING_STAT = :LIVING_STAT,'
      '    CALC_SUBSIDY = :CALC_SUBSIDY,'
      '    SGPS = :SGPS,'
      '    RANK = :RANK,'
      '    WORKPLACE = :WORKPLACE,'
      '    SUBS_RECIVE = :SUBS_RECIVE,'
      '    MODIFYDATE = :MODIFYDATE'
      'WHERE'
      '    ID = :OLD_ID'
      '    ')
    RefreshSQL.Strings = (
      'select'
      '    c.id,'
      '    c.name,'
      '    p.rstatus,'
      '    p.rstatus_name,'
      '    p.rexempt_name,'
      '    p.rbdate,'
      '    c.birthdate,'
      '    p.rmodifyuser,'
      '    p.rexempt_doc,'
      '    p.rabonent_id,'
      '    c.ten_id,'
      '    c.sex,'
      '    c.workability,'
      '    c.sgps,'
      '    c.rank,'
      '    c.workplace,'
      '    c.modifydate'
      
        '  from proc_get_abonent_tenants (:pabonent_id, :pshow_hist) p, c' +
        'lients c'
      '  where c.id = p.rclient_id')
    SelectSQL.Strings = (
      'select'
      '    c.id,'
      '    c.name,'
      '    p.rstatus,'
      '    p.rstatus_name,'
      '    p.rexempt_name,'
      '    p.rbdate,'
      '    c.birthdate,'
      '    p.rmodifyuser,'
      '    p.rexempt_doc,'
      '    p.rabonent_id,'
      '    c.ten_id,'
      '    c.sex,'
      '    c.workability,'
      '    c.sgps,'
      '    c.rank,'
      '    c.workplace,'
      '    c.modifydate'
      
        '  from proc_get_abonent_tenants (:pabonent_id, :pshow_hist) p, c' +
        'lients c'
      '  where c.id = p.rclient_id')
    AfterOpen = ds_ClientsAfterOpen
    AfterScroll = ds_ClientsAfterScroll
    BeforeOpen = ds_ClientsBeforeOpen
    Transaction = ClientsTrans
    Database = MAINDM.pMainDatabase
    Container = DSContainer
    Left = 220
    Top = 355
    poSQLINT64ToBCD = True
    oFetchAll = True
    object ds_ClientsID: TFIBIntegerField
      DisplayLabel = #1048#1044
      FieldName = 'ID'
    end
    object ds_ClientsNAME: TFIBStringField
      DisplayLabel = #1060#1048#1054
      DisplayWidth = 27
      FieldName = 'NAME'
      Size = 120
      EmptyStrToNull = True
    end
    object ds_ClientsRSTATUS: TFIBIntegerField
      DisplayLabel = #1057#1090#1072#1090#1091#1089' '#1082#1086#1076
      FieldName = 'RSTATUS'
    end
    object ds_ClientsRSTATUS_NAME: TFIBStringField
      DisplayLabel = #1057#1090#1072#1090#1091#1089
      DisplayWidth = 8
      FieldName = 'RSTATUS_NAME'
      Size = 30
      EmptyStrToNull = True
    end
    object ds_ClientsRBDATE: TFIBDateField
      DisplayLabel = #1044#1072#1090#1072' '#1085#1072#1095#1072#1083#1072' '#1089#1090#1072#1090#1091#1089#1072
      DisplayWidth = 16
      FieldName = 'RBDATE'
    end
    object ds_ClientsBIRTHDATE: TFIBDateField
      DisplayLabel = #1044#1072#1090#1072' '#1088#1086#1078#1076#1077#1085#1080#1103
      FieldName = 'BIRTHDATE'
    end
    object ds_ClientsREXEMPT_NAME: TFIBStringField
      DisplayLabel = #1051#1100#1075#1086#1090#1072
      DisplayWidth = 20
      FieldName = 'REXEMPT_NAME'
      Size = 120
      EmptyStrToNull = True
    end
    object ds_ClientsREXEMPT_DOC: TFIBStringField
      DisplayLabel = #1044#1086#1082#1091#1084#1077#1085#1090' '#1083#1100#1075#1086#1090#1099
      DisplayWidth = 16
      FieldName = 'REXEMPT_DOC'
      Size = 100
      EmptyStrToNull = True
    end
    object ds_ClientsRABONENT_ID: TFIBIntegerField
      DisplayLabel = #1048#1044' '#1072#1073#1086#1085#1077#1085#1090#1072
      FieldName = 'RABONENT_ID'
    end
    object ds_ClientsTEN_ID: TFIBStringField
      DisplayLabel = #1059#1048#1053
      DisplayWidth = 20
      FieldName = 'TEN_ID'
      Size = 60
      EmptyStrToNull = True
    end
    object ds_ClientsSEX: TFIBStringField
      DisplayLabel = #1055#1086#1083
      DisplayWidth = 4
      FieldName = 'SEX'
      Size = 1
      EmptyStrToNull = True
    end
    object ds_ClientsWORKABILITY: TFIBIntegerField
      DisplayLabel = #1058#1088#1091#1076#1086#1089#1087#1086#1089#1086#1073#1085#1086#1089#1090#1100
      FieldName = 'WORKABILITY'
    end
    object ds_ClientsSGPS: TFIBStringField
      DisplayLabel = #1057#1043#1055#1057
      FieldName = 'SGPS'
      EmptyStrToNull = True
    end
    object ds_ClientsWORKPLACE: TFIBStringField
      DisplayLabel = #1052#1077#1089#1090#1086' '#1088#1072#1073#1086#1090#1099
      DisplayWidth = 20
      FieldName = 'WORKPLACE'
      Size = 255
      EmptyStrToNull = True
    end
    object ds_ClientsRANK: TFIBStringField
      DisplayLabel = #1044#1086#1083#1078#1085#1086#1089#1090#1100
      DisplayWidth = 20
      FieldName = 'RANK'
      Size = 255
      EmptyStrToNull = True
    end
    object ds_ClientsRMODIFYUSER: TFIBStringField
      DisplayLabel = #1052#1077#1085#1103#1083
      DisplayWidth = 20
      FieldName = 'RMODIFYUSER'
      Size = 100
      EmptyStrToNull = True
    end
    object ds_ClientsMODIFYDATE: TFIBDateField
      DisplayLabel = #1044#1072#1090#1072' '#1080#1079#1084#1077#1085#1077#1085#1080#1103
      FieldName = 'MODIFYDATE'
    end
  end
  object ds_RealityTypes: TpFIBDataSet [11]
    SelectSQL.Strings = (
      'select id, name'
      '  from rrealtytypes s'
      '  where id >= 0'
      '  order by s.name')
    Transaction = ReadTrans
    Database = MAINDM.pMainDatabase
    Container = DSContainer
    Left = 220
    Top = 451
    poSQLINT64ToBCD = True
    oFetchAll = True
    object ds_RealityTypesNAME: TFIBStringField
      FieldName = 'NAME'
      Size = 60
      EmptyStrToNull = True
    end
    object ds_RealityTypesID: TFIBIntegerField
      FieldName = 'ID'
    end
  end
  object dsc_Services: TDataSource [12]
    DataSet = ds_Services
    Left = 264
    Top = 307
  end
  object dsc_Clients: TDataSource [13]
    DataSet = ds_Clients
    Left = 264
    Top = 355
  end
  object dsc_RealityTypes: TDataSource [14]
    DataSet = ds_RealityTypes
    Left = 264
    Top = 451
  end
  object dsc_ClientHist: TDataSource [15]
    DataSet = ds_ClientHist
    Left = 264
    Top = 403
  end
  object ds_Owneship: TpFIBDataSet [16]
    SelectSQL.Strings = (
      'select id, name'
      '  from rownership s'
      '  order by s.name')
    Transaction = ReadTrans
    Database = MAINDM.pMainDatabase
    Container = DSContainer
    Left = 220
    Top = 499
    poSQLINT64ToBCD = True
    oFetchAll = True
    object ds_OwneshipNAME: TFIBStringField
      FieldName = 'NAME'
      Size = 60
      EmptyStrToNull = True
    end
    object ds_OwneshipID: TFIBIntegerField
      FieldName = 'ID'
    end
  end
  object dsc_Owneship: TDataSource [17]
    DataSet = ds_Owneship
    Left = 264
    Top = 499
  end
  object ds_MainAbon: TpFIBDataSet [18]
    UpdateSQL.Strings = (
      'UPDATE ABONENTS a'
      'SET '
      '    a.CLIENT_ID = :CLIENT_ID,'
      '    a.G_LICSCHET = :NLS,'
      '    a.UETS_LIC = :UETS_LIC,'
      '    a.APPARTS = :APPARTS,'
      '    a.LETTER = :LETTER,'
      '    a.PHONE = :PHONE,'
      '    a.NOTE = :NOTE,'
      '    a.OCC_FULLSPACE = :OCC_FULLSPACE,'
      '    a.OCC_LIVESPACE = :OCC_LIVESPACE,'
      '    a.OCC_ADDSPACE = :OCC_ADDSPACE,'
      '    a.BALKON = :BALKON,'
      '    a.POLIV = :POLIV,'
      '    a.ROOMS = :ROOMS,'
      '    a.FLOOR = :FLOOR,'
      '    a.HEIGHT = :HEIGHT,'
      '    a.DOORWAY = :DOORWAY,'
      '    a.REALTYTYPE = :REALTYTYPE,'
      '    a.OWNERSHIP = :OWNERSHIP,'
      '    a.MODIFYDATE = :MODIFYDATE,'
      '    a.CARDACCOUNT = :CARDACCOUNT,'
      '    a.ADD_DESS_BDATE = :ADD_DESS_BDATE,'
      '    a.ADD_DESS_EDATE = :ADD_DESS_EDATE,'
      '    a.CARDBANK_ID = :CARDBANK_ID,'
      '    a.CARD_TYPE = :CARD_TYPE,'
      '    a.FORDER = :FORDER,'
      '    a.PAYER_FIO = :PAYER_FIO,'
      '    a.PAYER_TABNUM = :PAYER_TABNUM,'
      '    a.PAYER_EMPLOY_ID = :PAYER_EMPLOY_ID,'
      
        '    a.second_flat = coalesce(:second_flat, 0) * 2 + coalesce(:mu' +
        'nic, 0)'
      'WHERE'
      '    ID = :OLD_ID'
      '    ')
    RefreshSQL.Strings = (
      'SELECT'
      '    ID,'
      '    BUILDING_ID,'
      '    CLIENT_ID,'
      '    IS_ACTIVE,'
      '    NLS,'
      '    UETS_LIC,'
      '    BDATE,'
      '    EDATE,'
      '    TOWN,'
      '    STREET,'
      '    HOUSE,'
      '    CORPUS,'
      '    APPARTS,'
      '    LETTER,'
      '    NAME,'
      '    ZKX_NAME,'
      '    PHONE,'
      '    BALANCE,'
      '    NOTE,'
      '    CREDIT,'
      '    DEBET,'
      '    OCC_FULLSPACE,'
      '    OCC_LIVESPACE,'
      '    OCC_ADDSPACE,'
      '    BALKON,'
      '    POLIV,'
      '    ROOMS,'
      '    FLOOR,'
      '    HEIGHT,'
      '    DOORWAY,'
      '    MUNIC,'
      '    SECOND_FLAT,'
      '    REALTYTYPE,'
      '    OWNERSHIP,'
      '    CREATEDATE,'
      '    MODIFYDATE,'
      '    CREATER,'
      '    MODIFIER,'
      '    CARDACCOUNT,'
      '    ADD_DESS_BDATE,'
      '    ADD_DESS_EDATE,'
      '    CARDBANK_ID,'
      '    CARD_TYPE,'
      '    FORDER,'
      '    PAYER_FIO,'
      '    PAYER_TABNUM,'
      '    PAYER_EMPLOY_ID,'
      '    MANAG'
      'FROM'
      '    PROC_ABONENT_GET_CARD(:PABONENT_ID) ')
    SelectSQL.Strings = (
      'SELECT'
      '    ID,'
      '    BUILDING_ID,'
      '    CLIENT_ID,'
      '    IS_ACTIVE,'
      '    NLS,'
      '    UETS_LIC,'
      '    BDATE,'
      '    EDATE,'
      '    TOWN,'
      '    STREET,'
      '    HOUSE,'
      '    CORPUS,'
      '    APPARTS,'
      '    LETTER,'
      '    NAME,'
      '    ZKX_NAME,'
      '    PHONE,'
      '    BALANCE,'
      '    NOTE,'
      '    CREDIT,'
      '    DEBET,'
      '    OCC_FULLSPACE,'
      '    OCC_LIVESPACE,'
      '    OCC_ADDSPACE,'
      '    BALKON,'
      '    POLIV,'
      '    ROOMS,'
      '    FLOOR,'
      '    HEIGHT,'
      '    DOORWAY,'
      '    MUNIC,'
      '    SECOND_FLAT,'
      '    REALTYTYPE,'
      '    OWNERSHIP,'
      '    CREATEDATE,'
      '    MODIFYDATE,'
      '    CREATER,'
      '    MODIFIER,'
      '    CARDACCOUNT,'
      '    ADD_DESS_BDATE,'
      '    ADD_DESS_EDATE,'
      '    CARDBANK_ID,'
      '    CARD_TYPE,'
      '    FORDER,'
      '    PAYER_FIO,'
      '    PAYER_TABNUM,'
      '    PAYER_EMPLOY_ID,'
      '    MANAG'
      'FROM'
      '    PROC_ABONENT_GET_CARD(:PABONENT_ID) ')
    Transaction = ReadTrans
    Database = MAINDM.pMainDatabase
    UpdateTransaction = LocalTrans
    OnFieldChange = ds_MainAbonFieldChange
    Container = DSContainer
    Left = 220
    Top = 259
    poSQLINT64ToBCD = True
    oFetchAll = True
    object ds_MainAbonID: TFIBIntegerField
      FieldName = 'ID'
      ReadOnly = True
    end
    object ds_MainAbonBUILDING_ID: TFIBIntegerField
      FieldName = 'BUILDING_ID'
      ReadOnly = True
    end
    object ds_MainAbonCLIENT_ID: TFIBIntegerField
      Tag = 1
      FieldName = 'CLIENT_ID'
      ReadOnly = True
    end
    object ds_MainAbonIS_ACTIVE: TFIBSmallIntField
      Tag = 1
      FieldName = 'IS_ACTIVE'
      ReadOnly = True
    end
    object ds_MainAbonNLS: TFIBStringField
      Tag = 1
      FieldName = 'NLS'
      ReadOnly = True
      EmptyStrToNull = True
    end
    object ds_MainAbonUETS_LIC: TFIBStringField
      Tag = 1
      FieldName = 'UETS_LIC'
      ReadOnly = True
      Size = 16
      EmptyStrToNull = True
    end
    object ds_MainAbonBDATE: TFIBDateField
      Tag = 1
      FieldName = 'BDATE'
      ReadOnly = True
      DisplayFormat = 'dd.mm.yyyy'
    end
    object ds_MainAbonEDATE: TFIBDateField
      Tag = 1
      FieldName = 'EDATE'
      ReadOnly = True
      DisplayFormat = 'dd.mm.yyyy'
    end
    object ds_MainAbonTOWN: TFIBStringField
      FieldName = 'TOWN'
      ReadOnly = True
      Size = 60
      EmptyStrToNull = True
    end
    object ds_MainAbonSTREET: TFIBStringField
      FieldName = 'STREET'
      ReadOnly = True
      Size = 120
      EmptyStrToNull = True
    end
    object ds_MainAbonHOUSE: TFIBStringField
      FieldName = 'HOUSE'
      ReadOnly = True
      Size = 16
      EmptyStrToNull = True
    end
    object ds_MainAbonCORPUS: TFIBStringField
      FieldName = 'CORPUS'
      ReadOnly = True
      Size = 3
      EmptyStrToNull = True
    end
    object ds_MainAbonAPPARTS: TFIBIntegerField
      Tag = 1
      FieldName = 'APPARTS'
      ReadOnly = True
    end
    object ds_MainAbonLETTER: TFIBStringField
      Tag = 1
      FieldName = 'LETTER'
      ReadOnly = True
      Size = 3
      EmptyStrToNull = True
    end
    object ds_MainAbonNAME: TFIBStringField
      FieldName = 'NAME'
      ReadOnly = True
      Size = 120
      EmptyStrToNull = True
    end
    object ds_MainAbonZKX_NAME: TFIBStringField
      FieldName = 'ZKX_NAME'
      ReadOnly = True
      Size = 255
      EmptyStrToNull = True
    end
    object ds_MainAbonPHONE: TFIBStringField
      Tag = 1
      FieldName = 'PHONE'
      ReadOnly = True
      EmptyStrToNull = True
    end
    object ds_MainAbonBALANCE: TFIBBCDField
      FieldName = 'BALANCE'
      ReadOnly = True
      DisplayFormat = '#,##0.00'
      EditFormat = '0.00'
      Size = 2
      RoundByScale = True
    end
    object ds_MainAbonNOTE: TFIBStringField
      Tag = 1
      FieldName = 'NOTE'
      ReadOnly = True
      Size = 1000
      EmptyStrToNull = True
    end
    object ds_MainAbonDEBET: TFIBBCDField
      FieldName = 'DEBET'
      ReadOnly = True
      DisplayFormat = '#,##0.00'
      EditFormat = '0.00'
      Size = 2
      RoundByScale = True
    end
    object ds_MainAbonCREDIT: TFIBBCDField
      FieldName = 'CREDIT'
      ReadOnly = True
      DisplayFormat = '#,##0.00'
      EditFormat = '0.00'
      Size = 2
      RoundByScale = True
    end
    object ds_MainAbonOCC_FULLSPACE: TFIBBCDField
      Tag = 1
      FieldName = 'OCC_FULLSPACE'
      ReadOnly = True
      DisplayFormat = '#,##0.000'
      EditFormat = '0.000'
      Size = 3
      RoundByScale = True
    end
    object ds_MainAbonOCC_LIVESPACE: TFIBBCDField
      Tag = 1
      FieldName = 'OCC_LIVESPACE'
      ReadOnly = True
      DisplayFormat = '#,##0.000'
      EditFormat = '0.000'
      Size = 3
      RoundByScale = True
    end
    object ds_MainAbonOCC_ADDSPACE: TFIBBCDField
      Tag = 1
      FieldName = 'OCC_ADDSPACE'
      ReadOnly = True
      DisplayFormat = '#,##0.000'
      EditFormat = '0.000'
      Size = 3
      RoundByScale = True
    end
    object ds_MainAbonBALKON: TFIBBCDField
      Tag = 1
      FieldName = 'BALKON'
      ReadOnly = True
      DisplayFormat = '#,##0.000'
      EditFormat = '0.000'
      Size = 3
      RoundByScale = True
    end
    object ds_MainAbonPOLIV: TFIBBCDField
      Tag = 1
      FieldName = 'POLIV'
      ReadOnly = True
      DisplayFormat = '#,##0.000'
      EditFormat = '0.000'
      Size = 3
      RoundByScale = True
    end
    object ds_MainAbonROOMS: TFIBIntegerField
      Tag = 1
      FieldName = 'ROOMS'
      ReadOnly = True
    end
    object ds_MainAbonFLOOR: TFIBIntegerField
      Tag = 1
      FieldName = 'FLOOR'
      ReadOnly = True
    end
    object ds_MainAbonHEIGHT: TFIBBCDField
      Tag = 1
      FieldName = 'HEIGHT'
      ReadOnly = True
      DisplayFormat = '#,##0.00'
      EditFormat = '0.00'
      Size = 2
      RoundByScale = True
    end
    object ds_MainAbonMUNIC: TFIBIntegerField
      Tag = 1
      FieldName = 'MUNIC'
      ReadOnly = True
    end
    object ds_MainAbonSECOND_FLAT: TFIBIntegerField
      Tag = 1
      FieldName = 'SECOND_FLAT'
      ReadOnly = True
    end
    object ds_MainAbonDOORWAY: TFIBIntegerField
      Tag = 1
      FieldName = 'DOORWAY'
      ReadOnly = True
    end
    object ds_MainAbonREALTYTYPE: TFIBIntegerField
      Tag = 1
      FieldName = 'REALTYTYPE'
      ReadOnly = True
    end
    object ds_MainAbonOWNERSHIP: TFIBIntegerField
      Tag = 1
      FieldName = 'OWNERSHIP'
      ReadOnly = True
    end
    object ds_MainAbonCREATEDATE: TFIBDateField
      FieldName = 'CREATEDATE'
      ReadOnly = True
      DisplayFormat = 'dd.mm.yyyy'
    end
    object ds_MainAbonMODIFYDATE: TFIBDateField
      FieldName = 'MODIFYDATE'
      DisplayFormat = 'dd.mm.yyyy'
    end
    object ds_MainAbonCREATER: TFIBStringField
      FieldName = 'CREATER'
      ReadOnly = True
      Size = 102
      EmptyStrToNull = True
    end
    object ds_MainAbonMODIFIER: TFIBStringField
      FieldName = 'MODIFIER'
      ReadOnly = True
      Size = 102
      EmptyStrToNull = True
    end
    object ds_MainAbonCARDACCOUNT: TFIBStringField
      Tag = 1
      FieldName = 'CARDACCOUNT'
      ReadOnly = True
      EmptyStrToNull = True
    end
    object ds_MainAbonADD_DESS_BDATE: TFIBDateField
      Tag = 1
      FieldName = 'ADD_DESS_BDATE'
      ReadOnly = True
      DisplayFormat = 'dd.mm.yyyy'
    end
    object ds_MainAbonADD_DESS_EDATE: TFIBDateField
      Tag = 1
      FieldName = 'ADD_DESS_EDATE'
      ReadOnly = True
      DisplayFormat = 'dd.mm.yyyy'
    end
    object ds_MainAbonCARDBANK_ID: TFIBIntegerField
      Tag = 1
      FieldName = 'CARDBANK_ID'
      ReadOnly = True
    end
    object ds_MainAbonCARD_TYPE: TFIBIntegerField
      Tag = 1
      FieldName = 'CARD_TYPE'
      ReadOnly = True
    end
    object ds_MainAbonFORDER: TFIBStringField
      Tag = 1
      FieldName = 'FORDER'
      ReadOnly = True
      Size = 60
      EmptyStrToNull = True
    end
    object ds_MainAbonPAYER_FIO: TFIBStringField
      Tag = 1
      FieldName = 'PAYER_FIO'
      ReadOnly = True
      Size = 120
      EmptyStrToNull = True
    end
    object ds_MainAbonPAYER_TABNUM: TFIBStringField
      Tag = 1
      FieldName = 'PAYER_TABNUM'
      ReadOnly = True
      EmptyStrToNull = True
    end
    object ds_MainAbonPAYER_EMPLOY_ID: TFIBIntegerField
      Tag = 1
      FieldName = 'PAYER_EMPLOY_ID'
      ReadOnly = True
    end
    object ds_MainAbonMANAG: TFIBStringField
      FieldName = 'MANAG'
      ReadOnly = True
      Size = 318
      EmptyStrToNull = True
    end
  end
  object dsc_MainAbon: TDataSource [19]
    DataSet = ds_MainAbon
    Left = 264
    Top = 259
  end
  object ds_Employers: TpFIBDataSet [20]
    SelectSQL.Strings = (
      'select id, empname'
      '  from remployers r'
      '  order by 2')
    Transaction = ReadTrans
    Database = MAINDM.pMainDatabase
    Container = DSContainer
    Left = 384
    Top = 259
    poSQLINT64ToBCD = True
    oFetchAll = True
    object ds_EmployersID: TFIBIntegerField
      FieldName = 'ID'
    end
    object ds_EmployersEMPNAME: TFIBStringField
      FieldName = 'EMPNAME'
      Size = 255
      EmptyStrToNull = True
    end
  end
  object dsc_Employers: TDataSource [21]
    DataSet = ds_Employers
    Left = 428
    Top = 259
  end
  object ds_Owners: TpFIBDataSet [22]
    DeleteSQL.Strings = (
      'DELETE FROM'
      '    CLIENTS2ABONENT'
      'WHERE'
      '        ID = :OLD_ID'
      '    ')
    SelectSQL.Strings = (
      'select c.name, c2a.id, c2a.opercent, c2a.description,'
      '       c2a.bdate, c2a.edate, c2a.doc_no, c2a.docdate,'
      '       pdt.name as doc_type, pdo.name as doc_organ'
      'from clients2abonent c2a'
      
        '  inner join clients c on c.id = c2a.client_id and c2a.abonent_i' +
        'd = :pabonent_id'
      '  left join pas_rown_docorgan pdo on pdo.id = c2a.doc_organ'
      '  left join pas_rown_doctype pdt on pdt.id = c2a.doc_type'
      '  where (c.id = :pclient_id or coalesce(:pclient_id, 0) = 0)'
      '  order by c2a.edate desc, c2a.bdate desc')
    Transaction = ReadTrans
    Database = MAINDM.pMainDatabase
    UpdateTransaction = OwnersTrans
    Container = DSContainer
    Left = 384
    Top = 307
    poSQLINT64ToBCD = True
    oFetchAll = True
    object ds_OwnersID: TFIBIntegerField
      FieldName = 'ID'
      Visible = False
    end
    object ds_OwnersNAME: TFIBStringField
      DisplayLabel = #1060#1048#1054' '#1089#1086#1073#1089#1090#1074#1077#1085#1085#1080#1082#1072
      DisplayWidth = 20
      FieldName = 'NAME'
      Size = 120
      EmptyStrToNull = True
    end
    object ds_OwnersOPERCENT: TFIBStringField
      DisplayLabel = #1044#1086#1083#1103' '#1089#1086#1073#1089#1090#1074#1077#1085#1085#1086#1089#1090#1080
      FieldName = 'OPERCENT'
      Size = 16
      EmptyStrToNull = True
    end
    object ds_OwnersBDATE: TFIBDateField
      DisplayLabel = #1044#1072#1090#1072' '#1085#1072#1095#1072#1083#1072
      FieldName = 'BDATE'
    end
    object ds_OwnersEDATE: TFIBDateField
      DisplayLabel = #1044#1072#1090#1072' '#1086#1082#1086#1085#1095#1072#1085#1080#1103
      FieldName = 'EDATE'
    end
    object ds_OwnersDOC_NO: TFIBStringField
      DisplayLabel = #8470' '#1076#1086#1082#1091#1084#1077#1085#1090#1072
      FieldName = 'DOC_NO'
      Size = 60
      EmptyStrToNull = True
    end
    object ds_OwnersDOCDATE: TFIBDateField
      DisplayLabel = #1044#1072#1090#1072' '#1074#1099#1076#1072#1095#1080
      FieldName = 'DOCDATE'
    end
    object ds_OwnersDOC_TYPE: TFIBStringField
      DisplayLabel = #1058#1080#1087' '#1076#1086#1082#1091#1084#1077#1085#1090#1072
      FieldName = 'DOC_TYPE'
      Size = 60
      EmptyStrToNull = True
    end
    object ds_OwnersDOC_ORGAN: TFIBStringField
      DisplayLabel = #1054#1088#1075#1072#1085' '#1074#1099#1076#1072#1095#1080
      FieldName = 'DOC_ORGAN'
      Size = 30
      EmptyStrToNull = True
    end
    object ds_OwnersDESCRIPTION: TFIBStringField
      DisplayLabel = #1055#1088#1080#1084#1077#1095#1072#1085#1080#1077
      FieldName = 'DESCRIPTION'
      Size = 60
      EmptyStrToNull = True
    end
  end
  object dsc_Owners: TDataSource [23]
    DataSet = ds_Owners
    Left = 428
    Top = 307
  end
  object ds_OtherPotrs: TpFIBDataSet [24]
    DeleteSQL.Strings = (
      'DELETE FROM'
      '    ABONENT_POTRS'
      'WHERE'
      '        ID = :OLD_ID'
      '    ')
    RefreshSQL.Strings = (
      'select rap.potr_name, ap.potr_count, ap.bdate, ap.edate,'
      
        '       (select rname from user_getfullname (ap.createuserid)) as' +
        ' creater,'
      '       ap.createdate,'
      '       ap.id'
      '  from abonent_potrs ap, rabonent_potrs rap'
      '  where rap.id = ap.potr_id'
      '    and ap.abonent_id = :pabonent_id'
      '    and ap.id = :old_id'
      '    ')
    SelectSQL.Strings = (
      'select rap.potr_name, ap.potr_count, ap.bdate, ap.edate,'
      
        '       (select rname from user_getfullname (ap.createuserid)) as' +
        ' creater,'
      '       ap.createdate,'
      '       ap.id'
      '  from abonent_potrs ap, rabonent_potrs rap'
      '  where rap.id = ap.potr_id'
      '    and ap.abonent_id = :pabonent_id')
    Transaction = ReadTrans
    Database = MAINDM.pMainDatabase
    UpdateTransaction = OtherPotrsTrans
    Container = DSContainer
    Left = 384
    Top = 359
    poSQLINT64ToBCD = True
    oFetchAll = True
    object ds_OtherPotrsPOTR_NAME: TFIBStringField
      DisplayLabel = #1042#1080#1076' '#1087#1086#1090#1088#1077#1073#1080#1090#1077#1083#1103
      DisplayWidth = 20
      FieldName = 'POTR_NAME'
      Size = 16
      EmptyStrToNull = True
    end
    object ds_OtherPotrsPOTR_COUNT: TFIBBCDField
      DisplayLabel = #1050#1086#1083#1080#1095#1077#1089#1090#1074#1086' '#1087#1086#1090#1088#1077#1073#1080#1090#1077#1083#1077#1081
      DisplayWidth = 11
      FieldName = 'POTR_COUNT'
      Size = 4
      RoundByScale = True
    end
    object ds_OtherPotrsBDATE: TFIBDateField
      DisplayLabel = #1053#1072#1095#1072#1083#1086' '#1087#1077#1088#1080#1086#1076#1072
      FieldName = 'BDATE'
    end
    object ds_OtherPotrsEDATE: TFIBDateField
      DisplayLabel = #1054#1082#1086#1085#1095#1072#1085#1080#1077' '#1087#1077#1088#1080#1086#1076#1072
      DisplayWidth = 11
      FieldName = 'EDATE'
    end
    object ds_OtherPotrsCREATER: TFIBStringField
      DisplayLabel = #1057#1086#1079#1076#1072#1090#1077#1083#1100' '#1079#1072#1087#1080#1089#1080
      DisplayWidth = 20
      FieldName = 'CREATER'
      Size = 150
      EmptyStrToNull = True
    end
    object ds_OtherPotrsCREATEDATE: TFIBDateField
      DisplayLabel = #1044#1072#1090#1072' '#1089#1086#1079#1076#1072#1085#1080#1103
      FieldName = 'CREATEDATE'
    end
    object ds_OtherPotrsID: TFIBIntegerField
      FieldName = 'ID'
    end
  end
  object dsc_OtherPotrs: TDataSource [25]
    DataSet = ds_OtherPotrs
    Left = 428
    Top = 359
  end
  object ds_AbonentHist: TpFIBDataSet [26]
    DeleteSQL.Strings = (
      'update trelations_histr'
      '  set is_deleted = 1'
      '  where id = :rrecord_id')
    SelectSQL.Strings = (
      'select p.rfield_name,'
      '       p.rold_value, '
      '       p.rdocdate, '
      
        '       (select rname from user_getfullname (p.rmodifyuserid)) as' +
        ' modifier,'
      '       p.rmodifydate, '
      '       p.rrecord_id, '
      '       p.rfield_descript, '
      '       p.rnote,'
      '       cast(0 as smallint) as is_deleted'
      'from proc_abon_get_hist(:pabonent_id, :pdate) p')
    Transaction = ReadTrans
    Database = MAINDM.pMainDatabase
    UpdateTransaction = AbonHistTrans
    Container = DSContainer
    Left = 384
    Top = 407
    poSQLINT64ToBCD = True
    oFetchAll = True
    object ds_AbonentHistRFIELD_DESCRIPT: TFIBStringField
      DisplayLabel = #1057#1074#1086#1081#1089#1090#1074#1086
      DisplayWidth = 20
      FieldName = 'RFIELD_DESCRIPT'
      Size = 255
      EmptyStrToNull = True
    end
    object ds_AbonentHistROLD_VALUE: TFIBStringField
      DisplayLabel = #1057#1090#1072#1088#1086#1077' '#1079#1085#1072#1095#1077#1085#1080#1077
      DisplayWidth = 30
      FieldName = 'ROLD_VALUE'
      Size = 255
      EmptyStrToNull = True
    end
    object ds_AbonentHistRDOCDATE: TFIBDateField
      DisplayLabel = #1044#1072#1090#1072' '#1080#1079#1084#1077#1085#1077#1085#1080#1103
      DisplayWidth = 12
      FieldName = 'RDOCDATE'
    end
    object ds_AbonentHistMODIFIER: TFIBStringField
      DisplayLabel = #1050#1090#1086' '#1080#1079#1084#1077#1085#1080#1083
      DisplayWidth = 20
      FieldName = 'MODIFIER'
      Size = 150
      EmptyStrToNull = True
    end
    object ds_AbonentHistRMODIFYDATE: TFIBDateField
      DisplayLabel = #1050#1086#1075#1076#1072' '#1084#1077#1085#1103#1083
      FieldName = 'RMODIFYDATE'
    end
    object ds_AbonentHistRRECORD_ID: TFIBIntegerField
      FieldName = 'RRECORD_ID'
      Visible = False
    end
    object ds_AbonentHistRNOTE: TFIBStringField
      DisplayLabel = #1055#1088#1080#1084#1077#1095#1072#1085#1080#1077
      FieldName = 'RNOTE'
      Size = 1000
      EmptyStrToNull = True
    end
    object ds_AbonentHistIS_DELETED: TFIBSmallIntField
      FieldName = 'IS_DELETED'
      Visible = False
    end
  end
  object dsc_AbonentHist: TDataSource [27]
    DataSet = ds_AbonentHist
    Left = 428
    Top = 407
  end
  object LocalTrans: TpFIBTransaction [28]
    DefaultDatabase = MAINDM.pMainDatabase
    TimeoutAction = TARollback
    Left = 180
    Top = 259
  end
  object OwnersTrans: TpFIBTransaction [29]
    DefaultDatabase = MAINDM.pMainDatabase
    TimeoutAction = TARollback
    Left = 348
    Top = 307
  end
  object OtherPotrsTrans: TpFIBTransaction [30]
    DefaultDatabase = MAINDM.pMainDatabase
    TimeoutAction = TARollback
    Left = 348
    Top = 359
  end
  object DSContainer: TDataSetsContainer [31]
    Left = 180
    Top = 215
  end
  object ds_Arendators: TpFIBDataSet [32]
    SelectSQL.Strings = (
      'select p.client_id as id, (select c.name from clients c '
      '          where c.id = p.client_id) as name'
      
        '  from p_sel_abontenants_by_period(:pabonent_id, current_date, c' +
        'urrent_date) p'
      '  where status > 0'
      'union'
      'select a.client_id as id, (select c.name from clients c '
      '          where c.id = a.client_id) as name'
      '  from abonents a'
      '  where a.id = :pabonent_id'
      'union'
      'select c.id, c.name '
      '  from clients c'
      '  where c.id = :pclient_id'
      'order by 2')
    Transaction = ReadTrans
    Database = MAINDM.pMainDatabase
    OnFieldChange = ds_MainAbonFieldChange
    Container = DSContainer
    Left = 220
    Top = 215
    poSQLINT64ToBCD = True
    oFetchAll = True
    object ds_ArendatorsID: TFIBIntegerField
      FieldName = 'ID'
    end
    object ds_ArendatorsNAME: TFIBStringField
      FieldName = 'NAME'
      Size = 120
      EmptyStrToNull = True
    end
  end
  object dsc_Arendators: TDataSource [33]
    DataSet = ds_Arendators
    Left = 264
    Top = 215
  end
  object prRecalcSaldo: TpFIBStoredProc [34]
    Transaction = QTrans
    Database = MAINDM.pMainDatabase
    SQL.Strings = (
      'execute procedure PROC_RECALC_SALDO(null, :pabonent_id)')
    Left = 560
    Top = 222
    qoStartTransaction = True
  end
  object qCloseDogs: TpFIBQuery [35]
    Transaction = QTrans
    Database = MAINDM.pMainDatabase
    SQL.Strings = (
      'update dogovors d'
      '  set d.edate = :pdate'
      '  where d.edate is null'
      '    and d.abonent_id = :pabonent_id')
    Left = 560
    Top = 295
    qoStartTransaction = True
  end
  object qFinalCalc: TpFIBQuery [36]
    Transaction = QTrans
    Database = MAINDM.pMainDatabase
    SQL.Strings = (
      'select count(1)'
      
        '  from proc_gencharge (:pabonent_id, null, null, firstdaymonth(c' +
        'urrent_date), lastdaymonth(:pdate), null, 1, current_date)'
      '')
    Left = 597
    Top = 295
    qoStartTransaction = True
  end
  object qCloseLS: TpFIBQuery [37]
    Transaction = QTrans
    Database = MAINDM.pMainDatabase
    SQL.Strings = (
      'EXECUTE PROCEDURE PROC_ABON_CLOSE'
      '(:PABONENT_ID,'
      '    :PDATE)')
    Left = 597
    Top = 223
    qoStartTransaction = True
  end
  object qClearLS: TpFIBQuery [38]
    Transaction = QTrans
    Database = MAINDM.pMainDatabase
    SQL.Strings = (
      'EXECUTE PROCEDURE '
      '    PROC_ABON_EMPTY(:PABONENT_ID,'
      '    :PDATE)  ')
    Left = 633
    Top = 223
    qoStartTransaction = True
  end
  object qCalcNewCharge: TpFIBQuery [39]
    Transaction = QTrans
    Database = MAINDM.pMainDatabase
    SQL.Strings = (
      'EXECUTE PROCEDURE PROC_CALC_NEW_CHARGE(:PABONENT_ID)  ')
    Left = 561
    Top = 259
    qoStartTransaction = True
  end
  inherited PropStorage: TPropStorageEh
    Section = 'crdAbonent'
    StoredProps.Strings = (
      '<P>.Height'
      '<P>.Left'
      '<P>.PixelsPerInch'
      '<P>.Top'
      '<P>.Width'
      '<P>.WindowState'
      'PageControl.TabSheet1.PageControl2.<P>.ActivePage'
      
        'PageControl.TabSheet1.PageControl2.TabSheet2.dbgOwnServices.<P>.' +
        'Columns.ColumnsIndex'
      
        'PageControl.TabSheet1.PageControl2.TabSheet2.dbgOwnServices.<P>.' +
        'Columns.<ForAllItems>.Width'
      
        'PageControl.TabSheet1.PageControl2.TabSheet3.GroupBox2.dbgClient' +
        's.<P>.Columns.ColumnsIndex'
      
        'PageControl.TabSheet1.PageControl2.TabSheet3.GroupBox2.dbgClient' +
        's.<P>.Columns.<ForAllItems>.Width'
      'PageControl.TabSheet1.PageControl2.TabSheet3.GroupBox3.<P>.Width'
      
        'PageControl.TabSheet1.PageControl2.TabSheet3.GroupBox3.dbgClient' +
        'Hist.<P>.Columns.ColumnsIndex'
      
        'PageControl.TabSheet1.PageControl2.TabSheet3.GroupBox3.dbgClient' +
        'Hist.<P>.Columns.<ForAllItems>.Width'
      
        'PageControl.TabSheet1.PageControl2.TabSheet4.dbgServices.<P>.Col' +
        'umns.ColumnsIndex'
      
        'PageControl.TabSheet1.PageControl2.TabSheet4.dbgServices.<P>.Col' +
        'umns.<ForAllItems>.Width'
      'PageControl.TabSheet1.Panel2.<P>.Height'
      'PageControl.TabSheet5.GroupBox14.<P>.Width'
      'PageControl.TabSheet6.Panel3.<P>.Width')
    Left = 368
    Top = 0
  end
  object QTrans: TpFIBTransaction
    DefaultDatabase = MAINDM.pMainDatabase
    TimeoutAction = TARollback
    Left = 633
    Top = 259
  end
  object qPlainSaldo: TpFIBQuery
    Transaction = QTrans
    Database = MAINDM.pMainDatabase
    SQL.Strings = (
      'EXECUTE PROCEDURE '
      '    UTIL_ALIGN_SALDO(:PABONENT_ID)  ')
    Left = 597
    Top = 259
    qoStartTransaction = True
  end
  object SrvTrans: TpFIBTransaction
    DefaultDatabase = MAINDM.pMainDatabase
    TimeoutAction = TARollback
    Left = 180
    Top = 307
  end
  object AbonHistTrans: TpFIBTransaction
    DefaultDatabase = MAINDM.pMainDatabase
    TimeoutAction = TARollback
    Left = 348
    Top = 407
  end
  object ClientsTrans: TpFIBTransaction
    DefaultDatabase = MAINDM.pMainDatabase
    TimeoutAction = TARollback
    TRParams.Strings = (
      'write'
      'nowait'
      'rec_version'
      'read_committed')
    TPBMode = tpbDefault
    Left = 180
    Top = 355
  end
  object ReadTrans: TpFIBTransaction
    DefaultDatabase = MAINDM.pMainDatabase
    TimeoutAction = TARollback
    TRParams.Strings = (
      'write'
      'nowait'
      'rec_version'
      'read_committed')
    TPBMode = tpbDefault
    Left = 220
    Top = 179
  end
  object ds_OwnServices: TpFIBDataSet
    RefreshSQL.Strings = (
      'SELECT'
      '    RDOCYEAR,'
      '    RDOCMONTH,'
      '    RMANAG_NAME,'
      '    RSUPPLIER_NAME,'
      '    RGROUP_NAME,'
      '    RGROUP_ID,'
      '    RNO_PAYMENTS_RECIEPT,'
      '    RDOGOVOR_ID,'
      '    RMETERPOLIT,'
      '    RDEBT_START,'
      '    RCHARGE,'
      '    RREPAY,'
      '    RRETURN,'
      '    RWRITE_OFF,'
      '    RMAKET,'
      '    RPAYS_KASS,'
      '    RPAYS_OTHER,'
      '    RDEBT_END,'
      '    rcurrent_charge,'
      '    rsupplier_closed_rs'
      'FROM'
      '    PROC_ABONENT_GET_OWNSERVICES(:PABONENT_ID,'
      '    :POWN_SERVICE,'
      '    :PMIN_DATE,'
      '    :PMAX_DATE,'
      '    :OLD_RGROUP_ID) ')
    SelectSQL.Strings = (
      'SELECT'
      '    RDOCYEAR,'
      '    RDOCMONTH,'
      '    RMANAG_NAME,'
      '    RSUPPLIER_NAME,'
      '    RGROUP_NAME,'
      '    RGROUP_ID,'
      '    RNO_PAYMENTS_RECIEPT,'
      '    RDOGOVOR_ID,'
      '    RMETERPOLIT,'
      '    RDEBT_START,'
      '    RCHARGE,'
      '    RREPAY,'
      '    RRETURN,'
      '    RWRITE_OFF,'
      '    RMAKET,'
      '    RPAYS_KASS,'
      '    RPAYS_OTHER,'
      '    RDEBT_END,'
      '    rcurrent_charge,'
      '    rsupplier_closed_rs'
      'FROM'
      '    PROC_ABONENT_GET_OWNSERVICES(:PABONENT_ID,'
      '    :POWN_SERVICE,'
      '    :PMIN_DATE,'
      '    :PMAX_DATE,'
      '    :PGROUP_ID) ')
    BeforeOpen = ds_OwnServicesBeforeOpen
    Transaction = SrvTrans
    Database = MAINDM.pMainDatabase
    Container = DSContainer
    Left = 100
    Top = 307
    poSQLINT64ToBCD = True
    oFetchAll = True
    object ds_OwnServicesRDOCYEAR: TFIBIntegerField
      FieldName = 'RDOCYEAR'
    end
    object ds_OwnServicesRDOCMONTH: TFIBIntegerField
      FieldName = 'RDOCMONTH'
    end
    object ds_OwnServicesRGROUP_NAME: TFIBStringField
      DisplayLabel = #1059#1089#1083#1091#1075#1072
      DisplayWidth = 60
      FieldName = 'RGROUP_NAME'
      Size = 120
      EmptyStrToNull = True
    end
    object ds_OwnServicesRGROUP_ID: TFIBIntegerField
      FieldName = 'RGROUP_ID'
    end
    object ds_OwnServicesRNO_PAYMENTS_RECIEPT: TFIBSmallIntField
      FieldName = 'RNO_PAYMENTS_RECIEPT'
    end
    object ds_OwnServicesRDOGOVOR_ID: TFIBIntegerField
      FieldName = 'RDOGOVOR_ID'
    end
    object ds_OwnServicesRMETERPOLIT: TFIBIntegerField
      FieldName = 'RMETERPOLIT'
    end
    object ds_OwnServicesRDEBT_START: TFIBBCDField
      DisplayLabel = #1053#1072#1095#1072#1083#1100#1085#1086#1077' '#1089#1072#1083#1100#1076#1086
      FieldName = 'RDEBT_START'
      Size = 2
      RoundByScale = True
    end
    object ds_OwnServicesRCHARGE: TFIBBCDField
      DisplayLabel = #1053#1072#1095#1080#1089#1083#1077#1085#1080#1077
      FieldName = 'RCHARGE'
      Size = 2
      RoundByScale = True
    end
    object ds_OwnServicesRREPAY: TFIBBCDField
      DisplayLabel = #1055#1077#1088#1077#1088#1072#1089#1095#1077#1090#1099
      FieldName = 'RREPAY'
      Size = 2
      RoundByScale = True
    end
    object ds_OwnServicesRRETURN: TFIBBCDField
      DisplayLabel = #1053#1077#1076#1086#1087#1086#1089#1090#1072#1074#1082#1080
      FieldName = 'RRETURN'
      Size = 2
      RoundByScale = True
    end
    object ds_OwnServicesRWRITE_OFF: TFIBBCDField
      DisplayLabel = #1057#1087#1080#1089#1072#1085#1080#1103
      FieldName = 'RWRITE_OFF'
      Size = 2
      RoundByScale = True
    end
    object ds_OwnServicesRMAKET: TFIBBCDField
      DisplayLabel = #1050#1086#1088#1088#1077#1082#1090#1080#1088#1086#1074#1082#1080
      FieldName = 'RMAKET'
      Size = 2
      RoundByScale = True
    end
    object ds_OwnServicesRPAYS_KASS: TFIBBCDField
      DisplayLabel = #1050#1072#1089#1089#1086#1074#1099#1077' '#1087#1083#1072#1090#1077#1078#1080
      FieldName = 'RPAYS_KASS'
      Size = 2
      RoundByScale = True
    end
    object ds_OwnServicesRPAYS_OTHER: TFIBBCDField
      DisplayLabel = #1055#1088#1086#1095#1080#1077' '#1087#1083#1072#1090#1077#1078#1080
      FieldName = 'RPAYS_OTHER'
      Size = 2
      RoundByScale = True
    end
    object ds_OwnServicesRDEBT_END: TFIBBCDField
      DisplayLabel = #1050#1086#1085#1077#1095#1085#1086#1077' '#1089#1072#1083#1100#1076#1086
      FieldName = 'RDEBT_END'
      Size = 2
      RoundByScale = True
    end
    object ds_OwnServicesRMANAG_NAME: TFIBStringField
      DisplayLabel = #1046#1080#1083#1080#1097#1085#1072#1103' '#1086#1088#1075#1072#1085#1080#1079#1072#1094#1080#1103
      DisplayWidth = 20
      FieldName = 'RMANAG_NAME'
      Size = 60
      EmptyStrToNull = True
    end
    object ds_OwnServicesRSUPPLIER_NAME: TFIBStringField
      DisplayLabel = #1055#1086#1089#1090#1072#1074#1097#1080#1082
      DisplayWidth = 20
      FieldName = 'RSUPPLIER_NAME'
      Size = 60
      EmptyStrToNull = True
    end
    object ds_OwnServicesRCURRENT_CHARGE: TFIBBCDField
      DisplayLabel = #1058#1077#1082#1091#1097#1077#1077' '#1085#1072#1095#1080#1089#1083#1077#1085#1080#1077
      DisplayWidth = 12
      FieldName = 'RCURRENT_CHARGE'
      Size = 2
      RoundByScale = True
    end
    object ds_OwnServicesRSUPPLIER_CLOSED_RS: TFIBSmallIntField
      FieldName = 'RSUPPLIER_CLOSED_RS'
    end
  end
  object dsc_OwnServices: TDataSource
    DataSet = ds_OwnServices
    Left = 144
    Top = 307
  end
  object pmServices: TPopupMenu
    Left = 120
    Top = 385
    object N19: TMenuItem
      Action = aNewMeter
    end
    object N26: TMenuItem
      Action = aSetMeterInd
    end
  end
end
